hide / unhide toolbars

[redspanna]

Hi all,

I recorded this simple macro to hide certain toolbars and placed it into the This Workbook part of vb

Private Sub workbook_open()

Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Drawing").Visible = False
            data.Show

End Sub

question is, on workbook close I want them all to be shown again thus leaving excel view 'normal'

I thought by changing the =False values to =True would work

Private Sub workbook_close()
Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Drawing").Visible = True
   End Sub

but when the workbook is closed and a normal empty MS Excel workbook is opened, all the previously hidden toolbars still are.

Any ideas how to show the hidden toolbars again on closing my workbook|?

thanks

 

[*shudder*]

The correct method would be the 'BeforeClose' event:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

However what happens when somebody wants to use another open workbook? Your better off using something like this:

Private Sub Workbook_Activate()
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False

End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True

End Sub

HTH

 

[redspanna]

thats done the job

thanks very much