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

[kheiro31]

bonjour,
j'ai une instruction comme suit

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

mais sur ca je voulez que la feuille "Sommaire figure mais par contre il y'a 2 feuille qui figure "Sommaire"+"RapportsDidi" aussi le contre admin ne ouvre pas toute les feuille comme l'instruction le montre .
possible une aide de votre part .