Sécuriser un classeur

[FaruSZ]

Bonjour,

Je voudrais sécuriser mon classeur en attribuant différents mots de passe pour ouvrir differentes feuilles.
Il faut poser une condition sur la valeur de la cellule B2 de chaque feuille cad:

Si le mot de passe = 111 et range(B2) = "Planification" donc on ouvre toutes les feuilles ou on dans la cellule B2="Planification"

Si le mot de passe = 222 et range(B2) = "Essais" donc on ouvre toutes les feuilles ou on dans la cellule B2="Essais"

Si le mot de passe = 333 et range(B2) = "Inge" donc on ouvre toutes les feuilles ou on dans la cellule B2="Inge"

J'ai rédigé ce code, il me permet pour l'instant juste d'ouvrir toutes les feuilles, mais pour celles avec els condition sur B2 ca marche pas, que dois je modifié ?
Merci

Private Sub CommandButton2_Click()
    Dim ws As Worksheet
    Select Case Me.TextBox1.Value
        Case "MC"
            ThisWorkbook.Application.Visible = True
            Me.Hide
        Case "MC1"
            For Each ws In ThisWorkbook.Worksheets
                If ws.Range("B2").Value = "Planification et maintenance" Then
                    ws.Visible = True
                End If
            Next ws
        Case "MC2"
            For Each ws In ThisWorkbook.Worksheets
                If ws.Range("B2").Value = "Pole Essais" Then
                    ws.Visible = True
                End If
            Next ws
        Case Else
            MsgBox ("veuillez entrer un mot de passe valide !")
    End Select
 ThisWorkbook.Application.Visible = True
End Sub

 

[FaruSZ]

Probleme résolue, les valeurs concernées etaient dans B1 non pas B2.