on exit macro
Hello there
would someone be able to help me with a way to reinstate Toolbars
on exit.
The problem I have at the moment is when I remove the toolbars and
close, the toolbars are gone from all workbooks. I need the toolbars to
be unhidden on exit.
Macro below, help would be appreciated
Thanks Ditchy
Option Base 1
Public VisibleState(200) As Variant
Sub RemoveToolbars()
Dim a As Integer:
Application.CommandBars("Worksheet Menu Bar").Enabled = False
For a = 1 To Application.CommandBars.Count
VisibleState(a) = Application.CommandBars(a).Visible
If CommandBars(a).Visible = True Then CommandBars(a).Visible = False
Next a
End Sub
Sub ReinstateToolbars()
Dim a As Integer
Application.CommandBars("Worksheet Menu Bar").Enabled = True
On Error Resume Next
For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Visible = VisibleState(a)
Next a
End Sub
|