Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Prevent paste in Excel...?
- Thread starter Deanr
- Start date
Try this:
Function PasteAllowed(i_blnAllowed As Boolean)
Dim cmb As CommandBarControl
Const ID_PASTE = 22
For Each cmb In CommandBars.FindControls(, ID_PASTE)
cmb.Enabled = i_blnAllowed
Next
End Function
Call it in autoopen event/macro with 'False' parameter and autoclose event/macro with 'True'.
M
Function PasteAllowed(i_blnAllowed As Boolean)
Dim cmb As CommandBarControl
Const ID_PASTE = 22
For Each cmb In CommandBars.FindControls(, ID_PASTE)
cmb.Enabled = i_blnAllowed
Next
End Function
Call it in autoopen event/macro with 'False' parameter and autoclose event/macro with 'True'.
M
- Status
Similar threads
- Locked
- Question
- Question
- Locked
- Question