Dim NomDuLogiciel As String NomDuLogiciel = "(Nom entre ces guillemets)" Dim MotDePasse As String MotDePasse = "(Mot de passe entre ces guilemets)" If InputBox("Quel est le mot de passe ?",NomDuLogiciel) = MotDePasse Then 'Bon mot de passe ! Else 'Mauvais mot de passe! End If
Dim MotDePasse As String = "Mon MDP" If InputBox("Quel est le mot de passe ?", me.text ' Pour afficher le nom de la form en cours) = MotDePasse Then 'Bon mot de passe ! Else 'Mauvais mot de passe! End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEt faut t'il créer un textbox pour entrer le mot de passe, avec un bouton entrez ?