quitter un inputbox !!!!!

Question

Bonjour,

Mon probl&#233;me est que dans le inputbox, si je trouve pas le mot de passe, il est pas possible de quitter la page, ce qui est g&#233;nant. 
Si quelqu'un sait comment la fermer soit pas ecap soit par le bouton annuler. 
merci 


Code:
,
----

Dim Reponse As String ' Contient l'essai de mot de passe
Reponse = InputBox("Entrez le mot de passe")
Do Until Reponse = "0"
Reponse = InputBox("Mauvaise r&#233;ponse. Essayez encore")
Loop   ' Fin de la boucle
    Frm_Reference.Show

  JIMM

cs_Jb2 · Answer

Je ne peu pas te r&#233;pondre, car, je ne connai pas la r&#233;ponse &#224; ta question, mais, si tu souhaite faire un module de mot de passe, voici un code.

mdp = "password"
essai = 1

mdp:
mdp_mis = InputBox("Veuillez entrer votre mot de passe. (Essai " + CStr(essai) + "/3)", "Mon appli")


    If mdp = mdp_mis Then
        GoTo suite
        MsgBox "Acc&#232;s autoris&#233;", vbInformation, "Personnaliseur Internet Explorer"
    Else
        MsgBox "Acc&#232;s refus&#233;", vbExclamation, "Personnaliseur Internet Explorer"
        If essai = 3 Then
        GoTo fin
        Else
        essai = essai + 1
        GoTo mdp
        End If
    End If
fin:
...code d'acc&#232;s refus&#233;
suite:
...suite du code

Jb2

FFkiller · Answer

JB2, sauf erreur ta Msgbox ne s'affichera jamais (apr&#232;s goto suite)

FFkiller

cs_Jb2 · Answer

ah oui ! excuse ! donc, si on regarde un peu mieu :

mdp = "password"
essai = 1

mdp:
mdp_mis = InputBox("Veuillez entrer votre mot de passe. (Essai " + CStr(essai) + "/3)", "Mon appli") 
    If mdp = mdp_mis Then
        MsgBox "Acc&#232;s autoris&#233;", vbInformation, "Mon appli"
        GoTo suite
    Else
        MsgBox "Acc&#232;s refus&#233;", vbExclamation, "Mon appli"
        If essai = 3 Then
        GoTo fin
        Else
        essai = essai + 1
        GoTo mdp
        End If
    End If
fin:
...code d'acc&#232;s refus&#233;
suite:
...suite du code

et voilou ! 

Jb2

cs_corsica · Answer

Il n'y a pas de solution la boucle est pr&#233;vue pour que tu r&#233;pondes ... c'est d'ailleur tout l'int&#233;r&#234;t de cette boucle maintenant si tu veux coder le fait que tu puisse abandonner alors pr&#233;vois une sortie du type :

if Reponse = "" then end 

d&#233;sol&#233; il n'y a pas mieux &#224; proposer avec un inputbox ...  

Le mieux &#233;tant de g&#233;rer toi m&#234;me la saisie avec un textbox et 2 boutons : un Ok et un Cancel pour quitter .........

Quitter un inputbox !!!!!

4 réponses

Discussions similaires