This will hide all the bars, and re-open then on workbook
close. i'm not sure exactly how you'd enable just the one
toolbar (or group of toolbars you need) but this is a
start anyway.
HTH
Kevin M
' hide commandbars
Dim a As Integer
For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = False
Next
Application.Visible = True
UserForm1.Hide
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' enable all command bars
Dim a As Integer
For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = True
Next
End Sub