disable shortcut key from menu control

[caroline]

Hello,
I would like to prevent the user to use Cut from the menu. I managed to
disable the menu item using the code below, but have not managed to disable
the Shortkey Ctrl+X.
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

 

[Ron de Bruin]

Note you code is not working correct if the user insert controls

See this page for a way that use the ID
http://www.rondebruin.nl/menuid.htm

See point 3 for the shortcuts
http://www.rondebruin.nl/menuid.htm#useful