Hi All,
Please advise how to disable cut and paste on cells right click
menu, on the kyboard (Ctrl+X, Ctrl+V) and from the "Edit" menu.

Thanks in advance!

Mark

Hi Mark

See the VBA help for Onkey for the shortcuts

And you can use this

Sub MenuControl_Enabled_False()
' Excel 97 - 2003
Dim Ctl As CommandBarControl
Dim Cbar As Integer

On Error Resume Next
For Cbar = 1 To Application.CommandBars.Count
For Each Ctl In Application.CommandBars(Cbar).Controls
Application.CommandBars(Cbar).FindControl(ID:=21, _
Recursive:=True).Enabled = False
Application.CommandBars(Cbar).FindControl(ID:=22, _
Recursive:=True).Enabled = False
Next Ctl
Next Cbar
On Error GoTo 0
End Sub

Sub MenuControl_Enabled_True()
' Excel 97 - 2003
Dim Ctl As CommandBarControl
Dim Cbar As Integer

On Error Resume Next
For Cbar = 1 To Application.CommandBars.Count
For Each Ctl In Application.CommandBars(Cbar).Controls
Application.CommandBars(Cbar).FindControl(ID:=21, _
Recursive:=True).Enabled = True
Application.CommandBars(Cbar).FindControl(ID:=22, _
Recursive:=True).Enabled = True
Next Ctl
Next Cbar
On Error GoTo 0
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mark" wrote in message ...
Hi All,
Please advise how to disable cut and paste on cells right click
menu, on the kyboard (Ctrl+X, Ctrl+V) and from the "Edit" menu.

Thanks in advance!

Mark

thank you Ron!

"Ron de Bruin" wrote:

Hi Mark

See the VBA help for Onkey for the shortcuts

And you can use this

Sub MenuControl_Enabled_False()
' Excel 97 - 2003
Dim Ctl As CommandBarControl
Dim Cbar As Integer

On Error Resume Next
For Cbar = 1 To Application.CommandBars.Count
For Each Ctl In Application.CommandBars(Cbar).Controls
Application.CommandBars(Cbar).FindControl(ID:=21, _
Recursive:=True).Enabled = False
Application.CommandBars(Cbar).FindControl(ID:=22, _
Recursive:=True).Enabled = False
Next Ctl
Next Cbar
On Error GoTo 0
End Sub

Sub MenuControl_Enabled_True()
' Excel 97 - 2003
Dim Ctl As CommandBarControl
Dim Cbar As Integer

On Error Resume Next
For Cbar = 1 To Application.CommandBars.Count
For Each Ctl In Application.CommandBars(Cbar).Controls
Application.CommandBars(Cbar).FindControl(ID:=21, _
Recursive:=True).Enabled = True
Application.CommandBars(Cbar).FindControl(ID:=22, _
Recursive:=True).Enabled = True
Next Ctl
Next Cbar
On Error GoTo 0
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mark" wrote in message ...
Hi All,
Please advise how to disable cut and paste on cells right click
menu, on the kyboard (Ctrl+X, Ctrl+V) and from the "Edit" menu.

Thanks in advance!

Mark