Disable Command Bar Edit Control

[iperlovsky]

I am attempting to use this sub routine to disable the cut control under the
Edit menu and all the sub menus, but the menu is still allowing me to cut. I
have Excel 2003. Any help is appreciated.

Sub MenuControl_False()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = False
Next Ctrl
End Sub

 

[Michael]

You're probably refering to Ctrl X
This is how you do that:
'Divert Ctrl + X = Cut
Application.OnKey "^x", "NoNo"

 

[Michael]

Read also this:
http://www.mrexcel.com/archive/VBA/1981.html

 

[Michael]

And if you don't want to write the nono sub, do this:
Application.OnKey "^x", ""
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.

 

[iperlovsky]

I am trying to disable the "cut" control from all menus in sheet 1.

 

[iperlovsky]

I do not know why but none of these "grey out" (ie, disable) the cut command
from all menus in the sheet.

 

[Mike H]

Hi,

All the techniques are described here

http://www.rondebruin.nl/menuid.htm

Mike

 

[iperlovsky]

Thanks for the tip. I am having difficulty applying this to only a few
designated sheets, rather than to the whole workbook. Any suggestions on that?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In
Worksheets("PDB_1").Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = False
Next Ctrl
End Sub

Thanks,

IP