Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
[RESOLU par david84 et Si...]acces avec mot de passe
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonsoir Excel Downloads
Bonsoir a tous et a toutes
SVP comment faire un mot de passe INPUTBOX avec 3 tentatives pour acceder a ce fichier
Merci beaucoup d'avance pour vos aides
Cordialement
MADA BLACK
Bonsoir david84
Oui j'ai pas pu trouver un code pour mettre un mot de passe inputbox avec 3 tentatives .. j'ai trouvé des mots de passe inputbox mais pas avec 3 tentatives .. j'ai mis ce fichier vide pour faciliter a mettre un code a ceux qui peuvent m'aider
Merci d'avance pour votre intention d'aide
Cordialement
MADA BLACK
Bonsoir david84
Merci pour le lien
Oui je l'ai déja vu avant de poster ici .. mais le fichier dans ce lien est avec userform .. tandisque moi j'ai bien precise que j'aimerai bien faire avec INPUTBOX
Merci une autre fois david84
Cordialement
MADA BLACK
Ok mais c'est le principe qu'il faut comprendre ! Après si tu veux passer par une InputBox tu peux utiliser la méthode ou la fonction InputBox pour entrer le nom. Après la structure du code est similaire.
Mais attention : l'intérêt de passer par un userform est que tu peux cacher ce que tape la personne, donc à toi de voir si tu veux garder cette possibilité ou pas.
A+
Sub test()
Static essai As Byte, RetVal
If essai >= 3 Then
MsgBox "nombre de tentatives dépassée"
Exit Sub
End If
tentative:
essai = essai + 1
RetVal = Application.InputBox("entrer le mot de passe")
If RetVal = "jacques" Then essai = 0: Exit Sub
If essai <= 2 Then
GoTo tentative
Else
MsgBox "nombre de tentatives dépassée"
End If
End Sub
Attention car au-delà de 3 tentatives de suite avec un mauvais mot de passe l'inputBox n'apparaît plus.
Merci david84
J'ai mis ce code dans un module mais a l'ouverture du fichier l'INPUTBOX ne s'affiche pas
Merci d'avance pour l'aide
sincerement
MADA BLACK
Merci david84
SVP comment faire pour que cet INPUTBOX s'affiche automatiquement des l'ouverture de fichier sans rien toucher .. sans faire cette macro
Une façon telle que thisworkbook open
Merci david84 pour votre bien suivi
MADA BLACK
Bonsoir david84
Merci beaucoup pour votre aide
Oui c'est bien fait .. il ne me reste qu'une petite truc et tout sera fini
Comment faire pour ajouter svp .. application quit pour que a la derniere mauvaise tentaive alors on sort completement de ce fichier
Merci beaucoup d'avance
Cordialement
MADA BLACK
on peut écrire les lignes directement dans ThisWorbook
VB:
Private Sub Workbook_Open()
Dim n As Byte, T As String, MdP
n = 4: T = " pour entrer le mot de passe"
Do
n = n - 1
MdP = InputBox(n & " essai" & IIf(n > 1, "s", "") & T, "Attention ...")
If n = 1 Then
MsgBox "Le classeur va se fermer !", 16, "C'est fini..."
ThisWorkbook.Close 0 'voir l'aide
End If
Loop Until MdP = "123" 'ou autre
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD