hello,
I would like to disable the cut control (and its shortkey CtrlX).
I have managed to disable the control by greying the menu item with the
following code but the shortkey still work.
Any idea?
Thanks

Sub preventcut()
' disable cut
Application.CommandBars("Worksheet Menu Bar").Reset
With Application.CommandBars("Worksheet Menu Bar").Controls
.Item(2).Controls(3).Enabled = False
End With
End Sub
Sub resetmenu()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub



--
caroline

Look up the "OnKey" method in help.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"caroline"
wrote in message
hello,
I would like to disable the cut control (and its shortkey CtrlX).
I have managed to disable the control by greying the menu item with the
following code but the shortkey still work.
Any idea?
Thanks

Sub preventcut()
' disable cut
Application.CommandBars("Worksheet Menu Bar").Reset
With Application.CommandBars("Worksheet Menu Bar").Controls
.Item(2).Controls(3).Enabled = False
End With
End Sub
Sub resetmenu()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
--
caroline