Attribute VB_Name = "Module2"
Sub SetBars(State)
    Static myOldBars As New Collection
    Dim myBar
    
    If State = xlOn Then
        For Each myBar In Application.CommandBars
            If myBar.Type <> 1 And myBar.Visible Then
                myOldBars.Add myBar
                myBar.Visible = False
            End If
        Next myBar
    Else
        For Each myBar In myOldBars
            myBar.Visible = True
        Next myBar
    End If
End Sub