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

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

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"iperlovsky" wrote:

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

Read also this:
http://www.mrexcel.com/archive/VBA/1981.html
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"iperlovsky" wrote:

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

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.




"Michael" wrote:

> You're probably refering to Ctrl X
> This is how you do that:
> 'Divert Ctrl + X = Cut
> Application.OnKey "^x", "NoNo"
>
> --
> If this posting was helpful, please click on the Yes button.
> Regards,
>
> Michael Arch.
>
>
>
>
> "iperlovsky" wrote:
>
> > 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
> >

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

"Michael" wrote:

> You're probably refering to Ctrl X
> This is how you do that:
> 'Divert Ctrl + X = Cut
> Application.OnKey "^x", "NoNo"
>
> --
> If this posting was helpful, please click on the Yes button.
> Regards,
>
> Michael Arch.
>
>
>
>
> "iperlovsky" wrote:
>
> > 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
> >

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

"Michael" wrote:

> Read also this:
> http://www.mrexcel.com/archive/VBA/1981.html
> --
> If this posting was helpful, please click on the Yes button.
> Regards,
>
> Michael Arch.
>
>
>
>
> "iperlovsky" wrote:
>
> > 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
> >

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
"Mike H" wrote:

> Hi,
>
> All the techniques are described here
>
> http://www.rondebruin.nl/menuid.htm
>
> Mike
>
> "iperlovsky" wrote:
>
> > 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
> >