Private Sub Form_Open(Cancel As Integer)
Dim i As Integer

For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
End Sub