Protection d'un userform

Citation:

---

Envoyé par Mapokko

OUI c'est ce que je veux
MERCI
Cordialement

---

Ouf. Ma boule de cristal fonctionne encore, j'avais un doute.


Tu peux mettre sur :resolu:.

Morale de l'histoire :
Comme le dit tant de signature : Question précise; réponse rapide et précise!!!

:mouarf: Bonne soirée à tous les deux.

Merci, pour information j'ai trouvé ce code , il fonction également

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Workbook_Open() UserForm1.Show     Dim Mdp As String, Pw As String   Pw = "123456" '<-- mot de passe   recom: Mdp = InputBox("Veuillez introduire votre mot de passe", "Password")   If Mdp = Pw Then UserForm1.Show Else If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Invalide Password") = vbRetry Then GoTo recom End If End Sub

---