OVH Cloud OVH Cloud

Ajouter un mot de passe

1 réponse
Avatar
benjaminalimi
Bonjour,

J'ai un bouton de commande qui fait apparaître un userform. J
souhaiterais simplement que l'accès à ce bouton soit restreint par u
mot de passe.
En cliquant je voudrais qu'il demande un mot de passe avant d'affiche
le userform. Merci

--
benjaminalim
-----------------------------------------------------------------------
benjaminalimi's Profile: http://www.msusenet.com/member.php?userid=209
View this thread: http://www.msusenet.com/t-187058397

1 réponse

Avatar
Jacques93
Bonjour benjaminalimi,

Essaie :

Private Sub CommandButton1_Click()
Dim mdp As String

mdp = InputBox("Entrez votre mot de passe : ")
If mdp <> "toto" Then
MsgBox "Mot de passe invalide"
Else
UserForm1.Show
End If
End Sub

Bonjour,

J'ai un bouton de commande qui fait apparaître un userform. Je
souhaiterais simplement que l'accès à ce bouton soit restreint par un
mot de passe.
En cliquant je voudrais qu'il demande un mot de passe avant d'afficher
le userform. Merci !





--
Cordialement,

Jacques.