Protection userform - VB/VBA/VBS - Programmation
Marsh Posté le 11-06-2014 à 14:29:37
Pour info, j'ai trouvé ce qui fonctionne dans le cas de mon fichier.
Le code est:
Dim Mdp As String
Dim Pw As String
Pw = "blabla"
recom:
Mdp = InputBox("Veuillez introduire votre mot de passe", "Mot de passe" )
If Mdp = Pw Then
UserForm1.Show 0
Else
If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Mot de passe invalide" ) = vbRetry Then GoTo recom
End If
J'ai lié ce code au bouton de commande permettant l'affichage du userform.
Une bonne journée à vous,
Marsh Posté le 22-06-2014 à 00:45:31
Salut
Il me semble qu'en cliquant a plusieurs reprise sur le bouton annuler on arrive a accéder a la userform, je t'ai mis un code tout aussi simple
Tu pouvait aussi faire comme ceci
créer une fenêtre avant la tienne
2 form une pour l'identification , l'autre votre programme
2 textbox
1 bouton renommer en Valider
2 labels renommé en Utilisateur et password
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "admin" And TextBox2.Text = "admin" Then
MsgBox("ID et Password correct" )
Me.Visible = False
Else
MsgBox("Mot de passe invalide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel)
End If
End Sub
End Class
Voila
Marsh Posté le 10-06-2014 à 21:05:37
Bonsoir,
Je débute en vba et j'ai une petite question, est-il possible de protéger un userform par un mot de passe pour que seulement les personnes autorisées puissent l'utiliser?
Merci pour votre aide