Hi I currently use the follwing code to remove commandbars but would like a
simpler code to remove all. Also the first line of this code does not work
in office 95 is there a reason why? Idealy I need to Disable Customizing of
toolbars

'Application.CommandBars.DisableCustomize = True
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.DisplayFormulaBar = False
Application.CommandBars("Tools").Controls("&Custom ize...").Delete
Application.CutCopyMode = False
Call MyMenu

Many Thanks
Neil

Hi Karoo

See this page
http://www.rondebruin.com/menuid.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Karoo News" wrote in message ...

Hi I currently use the follwing code to remove commandbars but would like a simpler code to remove all. Also the first line of
this code does not work in office 95 is there a reason why? Idealy I need to Disable Customizing of toolbars

'Application.CommandBars.DisableCustomize = True
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.DisplayFormulaBar = False
Application.CommandBars("Tools").Controls("&Custom ize...").Delete
Application.CutCopyMode = False
Call MyMenu

Many Thanks
Neil

Commandbars don' work in Office 95 at all do they?

Anyway, this disab les them all, including c ontext menus

Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = False
Next oCB

--
HTH

Bob Phillips

"Karoo News" wrote in message
...

Hi I currently use the follwing code to remove commandbars but would like
a
simpler code to remove all. Also the first line of this code does not work
in office 95 is there a reason why? Idealy I need to Disable Customizing
of
toolbars

'Application.CommandBars.DisableCustomize = True
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.DisplayFormulaBar = False
Application.CommandBars("Tools").Controls("&Custom ize...").Delete
Application.CutCopyMode = False
Call MyMenu

Many Thanks
Neil

Commandbars were not introduced in Excel until Office 97.

--
Regards,
Tom Ogilvy

"Karoo News" wrote in message
...

Hi I currently use the follwing code to remove commandbars but would like
a
simpler code to remove all. Also the first line of this code does not work
in office 95 is there a reason why? Idealy I need to Disable Customizing
of
toolbars

'Application.CommandBars.DisableCustomize = True
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.DisplayFormulaBar = False
Application.CommandBars("Tools").Controls("&Custom ize...").Delete
Application.CutCopyMode = False
Call MyMenu

Many Thanks
Neil