Code:
Option Explicit
Sub DisableCopyCutAndPaste ()
EnableControl 21, False 'cut
EnableControl 19, False 'copy
EnableControl 22, False 'paste
EnableControl 755, False 'pastespecial
Implementation. On Key "^ c", "Dummy"
Key Application.On "^ v", "Dummy"
Application.On Key "+ (DEL)", "Dummy"
Application.On Key "+ (INSERT)", "Dummy"
Application.CellDragAndDrop = False
Application.On DoubleClick = "Dummy"
CommandBars ("ToolBar List"). Enabled = False
End Sub
Sub EnableCopyCutAndPaste ()
EnableControl 21, True 'cut
EnableControl 19, True 'copy
EnableControl 22, True 'paste
EnableControl 755, True 'pastespecial
Key Application.On "^ c"
Key Application.On "^ v"
Application.On Key "+ (DEL)"
Application.On Key "+ (INSERT)"
Application.CellDragAndDrop = True
Application.On DoubleClick = ""
CommandBars ("ToolBar List"). Enabled = True
End Sub
Sub EnableControl (Id As in protecting, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
On Error Resume Next
For Each CB In Application.CommandBars
Set C = CB.FindControl (Id: = Id, recursive: = True)
If Not C Is Not hing Then C. Enabled = Enabled
Next
End Sub
Sub Dummy ()
'// Nogo
MsgBox "Sorry command not Available!"
End Sub
Bookmarks