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

--
caroline

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




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"caroline" <(E-Mail Removed)> wrote in message news:AF4F4799-887B-45C4-AFFF-(E-Mail Removed)...
> 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
>
> --
> caroline