disable a menu control short key

  • Thread starter Thread starter caroline
  • Start date Start date
C

caroline

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
 
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
 
Back
Top