commandbars 1

[isma786]

Hi

I want to rid of all the visible commandbars per spreadsheet upon opening then making then same commandbars that were made invisible to be visible again upon exiting.

is this possible?

 

[SkipVought]

is,

Run CollectToolbarStatus from the Workbook_Open event.

Run ResetToolbarStatus from the Workbook_Close event.

Sub CollectToolbarStatus()
   Set ws1 = Worksheets.Add
   With ws1
      r = 1
      For Each tb In Application.Toolbars
         .Cells(r, 1).Value = tb.Name
         .Cells(r, 2).Value = tb.Visible
         r = r + 1
      Next
      .Name = "tb"
      .Visible = xlSheetVeryHidden
   End With
End Sub
Sub ResetToolbarStatus()
   Application.DisplayAlerts = False
   With Sheets("tb")
      For Each t In .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
         With t
            Application.Toolbars(.Value).Visible = .Offset(0, 1).Value
         End With
      Next
      .Visible = xlSheetVisible
      .Delete
   End With
   Application.DisplayAlerts = True
End Sub

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884