Hiding toolbars but keeping the Windows Menu Bar?
 

Hi! Thanks for looking at my message.

I'm trying to hide the toolbars on opening a workbook, but leave th
'Worksheet Menu Bar' (The menu in words....'File', 'Edit', 'View' etc)
I then want to unhide those same toolbars upon closing the workbook.

I got the following from searching past threads.....

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

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
If Not CB.Name = CommandBars.ActiveMenuBar.Name Then CB.Enabled
ToBeSeen
Next
End Sub

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

....but it hides ALL toolbars. So Bill Manville suggested using:

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

I replaced the 3rd to last line with this code but it actually hid th
Windows Menu Bar and didn't unhide it upon closing!!

Did I put it in the wrong place?

Can anyone please advise?

Many thanks

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

Hiding toolbars but keeping the Windows Menu Bar?
 

You can use this
'Worksheet Menu Bar' = 1

Sub Testing()
Dim Ccount As Integer
For Ccount = 2 To Application.CommandBars.Count
CommandBars(Ccount).Enabled = False
Next
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Big Chris " wrote in message ...
Hi! Thanks for looking at my message.

I'm trying to hide the toolbars on opening a workbook, but leave the
'Worksheet Menu Bar' (The menu in words....'File', 'Edit', 'View' etc).
I then want to unhide those same toolbars upon closing the workbook.

I got the following from searching past threads.....

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

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
If Not CB.Name = CommandBars.ActiveMenuBar.Name Then CB.Enabled =
ToBeSeen
Next
End Sub

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

...but it hides ALL toolbars. So Bill Manville suggested using:

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

I replaced the 3rd to last line with this code but it actually hid the
Windows Menu Bar and didn't unhide it upon closing!!

Did I put it in the wrong place?

Can anyone please advise?

Many thanks,


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