quitter un inputbox !!!!!

Bonjour,

Mon problé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é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éponse. Essayez encore")      Loop   ' Fin de la boucle     Frm_Reference.Show

  JIMM 

Je ne peu pas te répondre, car, je ne connai pas la réponse à 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ès autorisé", vbInformation, "Personnaliseur Internet Explorer"
    Else
        MsgBox "Accès refusé", vbExclamation, "Personnaliseur Internet Explorer"
        If essai = 3 Then
        GoTo fin
        Else
        essai = essai + 1
        GoTo mdp
        End If
    End If
fin:
...code d'accès refusé
suite:
...suite du code


Jb2

JB2, sauf erreur ta Msgbox ne s'affichera jamais (après goto suite)

FFkiller

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ès autorisé", vbInformation, "Mon appli"
        GoTo suite
    Else
        MsgBox "Accès refusé", vbExclamation, "Mon appli"
        If essai = 3 Then
        GoTo fin
        Else
        essai = essai + 1
        GoTo mdp
        End If
    End If
fin:
...code d'accès refusé
suite:
...suite du code

et voilou !

Jb2

Il n'y a pas de solution la boucle est prévue pour que tu répondes ... c'est d'ailleur tout l'intérêt de cette boucle maintenant si tu veux coder le fait que tu puisse abandonner alors prévois une sortie du type :

if Reponse = "" then end

désolé il n'y a pas mieux à proposer avec un inputbox ...  

Le mieux étant de gérer toi même la saisie avec un textbox et 2 boutons : un Ok et un Cancel pour quitter .........