Big Chris,

If Not CB.Name = CommandBars.ActiveMenuBar.Name Then CB.Enabled = ToBeSeen

Rob


"Big Chris " wrote in message
...
I found the code below in a search and it's almost exactly what I want.
And yes, it works great. However, I want to maintain the Worksheet Menu
Bar.....the one with File, Edit, View etc, but not the actual
toolbars.

Would anyone have any idea how I could adjust this code to enable me to
achieve this objective?

Thanks to Bill Manville for his original answer which almost does the
trick for me too, and thanks in advance for looking at my problem.

---------------------------

Sub Auto_Open()
ShowToolbars False
End Sub

Sub Auto_Close()
ShowToolbars True
End Sub

Sub ShowToolbars(ToBeSeen As Boolean)
Dim CB As CommandBar
For Each CB In Application.CommandBars
CB.Enabled = ToBeSeen
Next
End Sub

-------------------------------


Regards,


---
Message posted from http://www.ExcelForum.com/