Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
menu and toolbars missing | Excel Discussion (Misc queries) | |||
hide toolbars, menu bar, etc | Excel Discussion (Misc queries) | |||
Hiding all toolbars | Excel Discussion (Misc queries) | |||
Menu and toolbars are missing | Excel Discussion (Misc queries) | |||
Menu toolbars | Excel Programming |