Protection userform

Protection userform - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 10-06-2014 à 21:05:37   

Reply

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,

Reply

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
 
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed