Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3021 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Protection userform

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Protection userform

n°2230375
baldo139
Posté le 10-06-2014 à 21:05:37  profilanswer
 

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

mood
Publicité
Posté le 10-06-2014 à 21:05:37  profilanswer
 

n°2230428
baldo139
Posté le 11-06-2014 à 14:29:37  profilanswer
 

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,

n°2231516
jean-phili​ppe59400
Posté le 22-06-2014 à 00:45:31  profilanswer
 

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
 
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Protection userform

 

Sujets relatifs
Protection feuille VBA sauf userformBoucle sur userform et checkbox
Userform avec plusieurs utilisateursMoteur de recherche vba userform
Module/ UserForm/ Excel VBAprotection classeur et onglet par mot de passe
Variable et UserFormUserform ou module pour choisir des cellules à ouvrir
[VBA][Excel] UserForm modeless dans une bouclecode vba protection feuille excel sauf userform
Plus de sujets relatifs à : Protection userform


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR