I want to code a procedure which will make note of all currently active
toolbars when the workbook opens. I then want to hide those toolbars and
display only the custom toolbar I have. Once I am done with this workbook, I
want to reactivate the previously active toolbars.

The following code hides them all with the exception of the Adobe pdf maker
6.0 toobar. Your ideas and solutions are appreciated.

Hal

Private Sub Auto_Open ()

S1$ = Application.CommandBars.Count
For Each bar In Application.CommandBars
If bar.BuiltIn And Not S1$ = 0 Then bar.Enabled = Flase
S1$ = S1$ -1
Next

End Sub