Private Sub CommandButton1_Click()
Dim Pass As String
    Pass = InputBox(Prompt:="Введите пароль:", Title:="Проверка на благонадежность")
    If Pass = "" Then MsgBox "Вы не ввели пароль", 48, "Попробуйте ещё раз!": Exit Sub
    If Pass = "123" Then
        Sheets(Me.ListBox1.Value).Unprotect Password:="123"
        Sheets(Me.ListBox1.Value).Visible = -1
        Sheets(Me.ListBox1.Value).Activate
        Unload Me
    Else
        MsgBox "Ваш пароль не подходит, попробуйте ещё раз!", 48, "Ошибка"
        Exit Sub
    End If
End Sub


Private Sub UserForm_Initialize()
Dim i As Long
    For i = 1 To Sheets.Count - 1
        With Me.ListBox1
            .AddItem Sheets(i).Name
        End With
    Next
End Sub