Public Sub HideAllCommandBars()
    Dim objCommandBar As CommandBar
    On Error Resume Next
    For Each objCommandBar In Application.CommandBars
        objCommandBar.Visible = False
    Next objCommandBar
End Sub