Sécuriser un classeur

FaruSZ

XLDnaute Occasionnel
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

VB:
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
 

Discussions similaires