Je voudrais ajouter une condition : Selectionner la feuille 2 si jamais la feuille 2 est déjà affichée. Cad de ne plus demander à l'utilisateur le mot de passe si déjà il a pu visualiser la dite feuille en validant le mot de passe voilà le code:
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Sheets(2).Visible = True
MsgBox "Correct. La feuille 2 est affichée"
Unload Me
Unload UserForm1
Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub
Tu dois ajouter une petite Macro qui te permettra de vérifier si le Mot de Passe à déjà été fourni
Code:
Public Mot_de_passe As String
Sub verif_motdepasse()
If Mot_de_passe <> "123" Then
Mot_de_passe = InputBox("Veuillez donner le mot de passe")
End If
End Sub
et de plus dans ton code tu ajoutes un appel à la vérification
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
verif_motdepasse
ActiveSheet.Unprotect (Mot_de_passe)
End Sub
dans mon exemple la feuille ne sera déprotégée automatiquement que si le mot de passe a déjà été donné, sinon on le demandera
Merci Jacque, Et comment avoir une macro qui permettrait de selectionner la feuille 2 cad sheet(2).select si déjà elle affichée. Mais si elle n'est pas affichée je fais appel à userform de mot de passe merci
Merci infiniment