Hide And Un-hide Excel Toolbars

[Jim333]

Hi everybody,

Is there any code to hide all toolbars when opening the workbook and
unhide them when closing the workbook,

I have one code for that purpose, but the problem with it is that I
have to mention all toolbars names in the code to hide or unhide them,
and when any toolbar is not mentioned in the code, it will not be
hidden or unhidden.

I hope that my question is clear for all,

Thankyou

 

[DM Unseen]

Sub showhide(bHide As Boolean)
Dim cmb As CommandBar
Static col As New Collection

If bHide Then
For Each cmb In Application.CommandBars
If cmb.Type = msoBarTypeMenuBar Or cmb.Type = msoBarTypeNormal Then
If cmb.Visible Then
cmb.Visible = False
cmb.Enabled = False
col.Add cmb, cmb.Name
End If
End If
Next cmb
Else
For Each cmb In col
cmb.Visible = True
cmb.Enabled = True
Next cmb
Set col = Nothing
End If


End Sub

DM Unseen

 

[Jim333]

Hi,

Thank you so much for ur reply,

I tried to install the code in a workbook, but It didn't work >> so, I
would like u please to put it in a workbook and attach it.

Thanx,

 

[DM Unseen]

Compile error?

Pls mail me so I have your email address

DM Unseen