Disable Format menu

[excelent]

This code disable Format menu (whole menu)

Application.CommandBars("Format").Enabled = False

But im just vana disable Show (Format/Columns/Show or (hide)

hav do i do that ?

thanks in advance

 

[Bob Phillips]

Application.CommandBars("Worksheet Menu
Bar").Controls("Format").Controls("Column").Controls("Hide").Enabled = False
'True
Application.CommandBars("Worksheet Menu
Bar").Controls("Format").Controls("Column").Controls("Unhide").Enabled =
False 'True


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[excelent]

Hi bob, i get a Runtime error 5
Invalid procedure call or argument

what is this part ? sheet name or...?
("Worksheet Menu Bar").


"Bob Phillips" skrev:

 

[Jim Rech]

Bob's code might not work on non-English versions of Excel. If that's what
you have try this:

Sub DisableColHideUnhide()
Dim Ctrls As CommandBarControls
Dim Ctrl As CommandBarControl
Set Ctrls = CommandBars.FindControls(, 886)
For Each Ctrl In Ctrls
Ctrl.Enabled = False
Next
Set Ctrls = CommandBars.FindControls(, 887)
For Each Ctrl In Ctrls
Ctrl.Enabled = False
Next
End Sub


--
Jim
| Hi bob, i get a Runtime error 5
| Invalid procedure call or argument
|
| what is this part ? sheet name or...?
| ("Worksheet Menu Bar").
|
|
| "Bob Phillips" skrev:
|
| > Application.CommandBars("Worksheet Menu
| > Bar").Controls("Format").Controls("Column").Controls("Hide").Enabled =
False
| > 'True
| > Application.CommandBars("Worksheet Menu
| > Bar").Controls("Format").Controls("Column").Controls("Unhide").Enabled =
| > False 'True
| >
| >
| > --
| > HTH
| >
| > Bob
| >
| > (there's no email, no snail mail, but somewhere should be gmail in my
addy)
| >
| > | > > This code disable Format menu (whole menu)
| > >
| > > Application.CommandBars("Format").Enabled = False
| > >
| > > But im just vana disable Show (Format/Columns/Show or (hide)
| > >
| > > hav do i do that ?
| > >
| > > thanks in advance
| >
| >
| >

 

[excelent]

ok thanks anyway Bob

Jim this work perfect thanks for ur help



"Jim Rech" skrev: