XL 2016 script vba pour sécurise et personnalise les pages

Private Sub Workbook_Open()
    Dim i As Byte
    Dim MonPassword As String
    'afficher la feuille 'Sommaire'des l'ouverture du classeur
    Worksheets("Sommaire").Activate
    'on faire une boucle permettant de masquer toutes autre feuilles'Rapports Kawter .....
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Sommaire" Then Sheets(i).Visible = False
    Next i
    'pour recupere le code ou mot de passe normalement ces dans une boite de type inputBox comment faire maintenent???
    MonPassword = InputBox("Entrez votre mot de passe", "Connexion", "Entrez du texte")

    Select Case MonPassword

        Case "kawter"    'Then 'il ma cree une anomalie que j'arrive pas a la regle ces msg"erreur d'execution13
            With Worksheets("RapportsKawter")
                .Visible = True
                .Select
                .Range("B2").Select
            End With

        Case "naila"
            With Worksheets("RapportsNaila")
                .Visible = True
                .Select
                .Range("B2").Select
            End With

        Case "didi"
            With Worksheets("RapportsDidi")
                .Visible = True
                .Select
                .Range("B2").Select
            End With

        Case "admin"
            With Worksheets("Rapports" & i)
                .Visible = True
                .Select
                .Range("B2").Select
            End With
        Case Else
            MsgBox "Entrez un mot de passe valide", vbOKOnly Or vbExclamation, Application.Name
    End Select
End Sub