Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Private Sub OptionButton1_Click()
    Select Case OptionButton1.Value
    Case True
        UserForm1.TextBox1.Enabled = False
        UserForm1.TextBox2.Enabled = False
        UserForm1.TextBox1.BackStyle =  0 
        UserForm1.TextBox2.BackStyle =  0 
    End Select
End Sub
Private Sub OptionButton2_Click()
    Select Case OptionButton2.Value
    Case True
        UserForm1.TextBox1.Enabled = True
        UserForm1.TextBox2.Enabled = True
        UserForm1.TextBox1.BackStyle =  1 
        UserForm1.TextBox2.BackStyle =  1 
    End Select
End Sub

Private Sub UserForm_Activate()
OptionButton1.Value = True
End Sub

Private Sub UserForm_Initialize()
    optView.Value = True
    Me.MultiPage1.Pages( 1 ).Enabled = False
    EnableFields False, False
End Sub

Private Sub cmdEnter_Click()

    If optView.Value = True Then
        Protect True
        Me.Hide
    Else
        If txtUserName.Value = "Admin" And _
          txtPassword = "123" Then
            Me.MultiPage1.Pages( 1 ).Enabled = True
            Protect False
            [color=red]'[/color]Me.Hide
        Else
            MsgBox ("Íåïðàâèëüíûå äàííûå!")
        End If
    End If
End Sub

Sub EnableFields( _
  blnUserName As Boolean, _
  blnPassword As Boolean)

    txtUserName.Enabled = blnUserName
    txtPassword.Enabled = blnPassword
    If Not (blnUserName And blnPassword) Then
        txtUserName.BackColor = &H8000000F
        txtPassword.BackColor = &H8000000F
        
    Else
        txtUserName.BackColor = &H80000005
        txtPassword.BackColor = &H80000005
        Me.MultiPage1.Pages( 1 ).Enabled = False
        txtUserName.Text = ""
        txtPassword.Text = ""
    End If
End Sub

Private Sub cmdEnter_Click()

    If optView.Value = True Then
        Protect True
        Me.Hide
    Else
        If txtUserName.Value = "Admin" And _
          txtPassword = "123" Then
            Me.MultiPage1.Pages( 1 ).Enabled = True
            Protect False
            'Me.Hide
        Else
            MsgBox ("Неправильные данные!")
        End If
    End If
End Sub

Sub EnableFields( _
  blnUserName As Boolean, _
  blnPassword As Boolean)

    txtUserName.Enabled = blnUserName
    txtPassword.Enabled = blnPassword
    If Not (blnUserName And blnPassword) Then
        txtUserName.BackColor = &H8000000F
        txtPassword.BackColor = &H8000000F
        Me.MultiPage1.Pages( 1 ).Enabled = False
        txtUserName.Text = ""
        txtPassword.Text = ""
    Else
        txtUserName.BackColor = &H80000005
        txtPassword.BackColor = &H80000005
    End If
End Sub

Private Sub cmdEnter_Click()

    If optView.Value = True Then
        Protect True
        Me.Hide
    Else
        If txtUserName.Value = "Admin" And _
          txtPassword = "123" Then
            Me.MultiPage1.Pages( 1 ).Enabled = True
            Me.MultiPage1.Value =  1 
            Protect False
            'Me.Hide
        Else
            MsgBox ("Неправильные данные!")
        End If
    End If
End Sub

Private Sub UserForm_Terminate()   
    cmdEnter_Click
End Sub

    frmAuth.Show 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     'скрытие панели
    Application.CommandBars("имя созданой панели").Visible = False
End Sub

Private Sub Workbook_Open()
    With Application.CommandBars("имя созданой панели")
        .Visible = True 'отображение панели
        .Controls( 1 ).OnAction = "имя" ' присвоение макроса кнопке 
        .Controls( 1 ).Caption = "моя" ' присвоение надписи кнопке
    End With
End Sub

Private sub имя()
     frmAuth.Show
End sub