Dear Friends,

I got the following code (which disables the cut, copy, paste in a workbook) in this forum only. Thanks to the author. It works nicely. I applied the code as follows:

In workbook module:
Option Explicit

Sub Workbook_open()
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
Application.OnKey "^c", "Error"
Application.OnKey "^v", "Error"
Application.OnKey "^x", "Error"
Application.OnKey "+{DEL}", "Error"
Application.OnKey "+{INSERT}", "Error"
Application.CellDragAndDrop = False
Application.OnDoubleClick = "Error"

End Sub
In general module:
Option Explicit

Sub Error()
MsgBox "This option has been disabled"
End Sub

Sub EnableControl(Id As Integer, 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 Nothing Then C.Enabled = Enabled
Next
End Sub
It disables shortcuts (Ctrl+x, Ctrl+C, etc) only. But, how to disable these commands in Menu control also?

Thanks in advance.

acsishere.