Hi

I am using the following to hide the toolbar in Excel 2007
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

However, I need to modify this for my 2003 users to hide the toolbars, could
anyone tell me the command to use in my macro

Thanks

Can you use something like this?
Sub Macro1()
Application.CommandBars("Protection").Visible = True
End Sub


Regards,
Ryan---

--
RyGuy


"Lisa" wrote:

Hi

I am using the following to hide the toolbar in Excel 2007
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

However, I need to modify this for my 2003 users to hide the toolbars, could
anyone tell me the command to use in my macro

Thanks

I'll try that, thanks..

"ryguy7272" wrote:

Can you use something like this?
Sub Macro1()
Application.CommandBars("Protection").Visible = True
End Sub


Regards,
Ryan---

--
RyGuy


"Lisa" wrote:

Hi

I am using the following to hide the toolbar in Excel 2007
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

However, I need to modify this for my 2003 users to hide the toolbars, could
anyone tell me the command to use in my macro

Thanks

See this page Lisa for more information
http://www.rondebruin.nl/menuid.htm

How do I disable all Command bars

If you want them back use True instead of False in the code
Sub Disable_Command_Bars_1()
'This will disable all Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next
End Sub

More examples are in the workbook that you can download on this page.


--

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


"Lisa" wrote in message ...
Hi

I am using the following to hide the toolbar in Excel 2007
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

However, I need to modify this for my 2003 users to hide the toolbars, could
anyone tell me the command to use in my macro

Thanks