Choix de 2 mot de passe

Bonjour,

j'ai fais une macro de protection, mais j'aurai voulu y mettre 2 mot de passe.

j'ai fais cela, mais ca ne fonctionne pas, si qq'un aurait une idée

voila le code que j'ai :

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

mdp = InputBox(vbCrLf & " Veuillez entrer le mot de passe." & vbCrLf & vbCrLf & " Attention si le mot de passe est incorrect, le fichier sera fermé ! ", " Déprotection ")

If mdp = "" Then Exit Sub

If mdp <> "toto" or "toto1" Then

MsgBox " Erreur de Mot de passe." & vbTab & vbCrLf & "Un mail va etre envoyé à l'Administrateur du fichier.", vbCritical, " Mot de passe incorrect"

Call UseOutlook

Call Macro4

Else

For Each Sh In Sheets

Sh.Unprotect mdp

Next Sh

Me.CommandButton1.Visible = False

Me.CommandButton2.Visible = True

Sheets("test").Visible = True

Sheets("Combi compagnon 2 FERMETURE").Visible = True

End If

MsgBox " Attention à vos modifications ", , " Fichier Non Protegé "

End Sub

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

For Each Sh In Sheets

Sh.Protect "toto" or "toto1" Then

Next Sh

Me.CommandButton1.Visible = True

Me.CommandButton2.Visible = False

Sheets("test").Visible = False

Sheets("Combi compagnon 2 FERMETURE").Visible = False

End Sub

merci d'avance pour vos idées

Tu écris mal ta condition...

If mdp <> "toto" or mdp = "toto1" Then

merci effectivement, j'ai mal écris la commande, mais ça ne fonctionne pas.

ce que je voudrais c'est avoir 2 mot de passe soit toto ou soit toto1.

je joins mon fichier modelé pour ceux qui veux tester.

Autres question je voudrais savoir si ça serai compliqué de rajouter un peu de code pour avoir un compteur d'essai (3 essai).

le mdp est toto

Bonjour,

Tu as protégé ton code vba on ne peut donc rien faire quel est le mdp ?

Cdlt.

Oups, c'est bon maintenant j'ai enlever le mdp

Re,

Voilà avec 2 mdp possible et les 3 essais.

Cdlt.

C'est parfait.

ça fonctionne a la perfection.

je croyais que c’était plus compliqué pour le compteur.

merci beaucoup

juste une petite modification, si qq'un veux utiliser le code du model.

il faut retirer tous les MsgBox " Attention à vos modifications ", , " Fichier Non Protégé " et en mettre juste un avant le dernier Else, sinon il répété 3 fois le message et il faut cliqué 3 fois sur ok.