Snasui Excel Forum

Code: Select all

Private Sub Workbook_Open()
   Sheets("Sheet1").Select
   Call DisableCommandBars
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call EnableCommandBars
End Sub

Code: Select all

Sub DisableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = False
    Next
End Sub

Sub EnableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = True
    Next
End Sub