Gestion utilisateur sous VBA

Papou-net

XLDnaute Barbatruc

• 7 Décembre 2010

• #2

Re : Gestion utilisateur sous VBA

Bonsoir touwhite, et bienvenue,

Bien sûr que c'est possible, voici un exemple en pièce jointe.

Je ne connais pas ton niveau en VBA, mais si tu as besoin d'éclaircissements, n'hésite pas à demander.

Espérant avoir répondu.

Cordialement.

 

Pièces jointes

• touwhite.xls

  29.5 KB · Affichages: 667

Dernière édition: 7 Décembre 2010

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 7 Décembre 2010

• #3

Re : Gestion utilisateur sous VBA

Salut,passer par

Code:

Environ("USERNAME")

qui te donnera le nom de login Windows pour l'utilisateur concerné

 

Vote positif 0 Vote négatif

T

touwhite

XLDnaute Nouveau

• 8 Décembre 2010

• #4

Re : Gestion utilisateur sous VBA

Merci à vous.
Je débute tout juste en VBA. J'ai réaliser un IHM sous TIA Siemens, et j'aimerais le représenter sous VBA pour une présentation. Je débute donc tout juste sous ce logiciel!!
Papou-net, comment dois-je faire pour ouvrir l'application sous vba et non la fenetre que tu as créés ??
Merci encore

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Décembre 2010

• #5

Re : Gestion utilisateur sous VBA

touwhite à dit:

Merci à vous.
Je débute tout juste en VBA. J'ai réaliser un IHM sous TIA Siemens, et j'aimerais le représenter sous VBA pour une présentation. Je débute donc tout juste sous ce logiciel!!
Papou-net, comment dois-je faire pour ouvrir l'application sous vba et non la fenetre que tu as créés ??
Merci encore

Cliquez pour agrandir...

Bonsoir touwhite,

Je suppose que tu veux dire comment lancer VBA ?

Dans ce cas, tu appuies sur ALT & F11, ce qui aura pour effet de lancer l'éditeur Visual Basic. Dans la fenêtre de gauche, tu trouveras le projet attaché à ton fichier (il porte le même nom) et comprends l'ensemble des objets qui y sont définis : les feuilles du classeur, la fenêtre qui s'ouvre à l'ouverture du fichier, les modules de code (macros), etc... Si tu double-cliques sur l'une de ces lignes, la fenêtre de droite affichera l'ensemble du code attaché à cet objet.

Espérant avoir répondu.

Cordialement.

 

Vote positif 0 Vote négatif

T

touwhite

XLDnaute Nouveau

• 8 Décembre 2010

• #6

Re : Gestion utilisateur sous VBA

C'est exactement ca!! Je regarde tout sa et j'essai de l'intégrer à mon programme.
Merci encore

 

Vote positif 0 Vote négatif

T

touwhite

XLDnaute Nouveau

• 13 Décembre 2010

• #7

Re : Gestion utilisateur sous VBA

J'ai réussi à l'integrer à mon programme. Seulement, je ne comprends pas vraiment la logique.
J'aimerais que sur ma page d'accueil IHM, un "bouton 1" s'affiche lorsque "l'utilisateur 1" se connecte, et un "bouton 2" pour"l'utilisateur 2".
Je n'y arrive pas et j'aimerais quelques conseils.
Ou en dernier recours, est-il possible que je vous envoie mon programme pour que vous jetiez un oeil par vous-même ?
Merci beaucoup

 

Vote positif 0 Vote négatif

T

touwhite

XLDnaute Nouveau

• 18 Décembre 2010

• #8

Re : Gestion utilisateur sous VBA

Ci-joint le fichier VBA.

Cordialement

 

Pièces jointes

• IHM VBA V2.xlsm

  27.6 KB · Affichages: 527

Dernière édition: 18 Décembre 2010

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Décembre 2010

• #9

Re : Gestion utilisateur sous VBA

Bonjour


Je te conseille de déclarer tes variables
(c'est parfois source de problème, quand elles ne le sont pas)

Exemple ici:

Code:

Private Sub UserForm_Activate()
Dim i As Byte, Nom, MdP
Nom = Array("Opérateur", "Maintenance")
MdP = Array("opérateur", "maintenance")
ComboBox1.Clear
For i = 0 To UBound(Nom)
  ComboBox1.AddItem Nom(i)
Next
End Sub

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Décembre 2010

• #10

Re : Gestion utilisateur sous VBA

Bonsoir touwhite, Staple1600,

RE touwhite,

Peux-tu me préciser ce que tu entends (dans ton MP) par boutons 1 et 2 ?

Sont-ils déjà créés sur le formulaire Accueil ?

Par ailleurs, où as-tu stocké les mots de passe, je ne les ai pas trouvés.

Dans l'attente de ta réponse.

Cordialement.

 

Vote positif 0 Vote négatif

T

touwhite

XLDnaute Nouveau

• 23 Décembre 2010

• #11

Re : Gestion utilisateur sous VBA

Bonjour,
Les Mots de passe sont stockés dans le userforme Utilisateurs.
Les 2 boutons sont les boutons "cycle manu"
Le bouton 1 "cycle manu fabrication" s'affiche lorsque l'opérateur est enregistré et de même pr le 2e.

Merci
Cordialement

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Décembre 2010

• #12

Re : Gestion utilisateur sous VBA

Bonsoir touwhite,

Alors, si j'ai bien compris ta demande, modifie le code de l'userform Utilisateurs comme suit :

Code:

Private Sub ComboBox1_Change()
Choix = ComboBox1.ListIndex
End Sub

Private Sub CommandButton1_Click()
Accueil.bouton_opérateur.Visible = False
Accueil.bouton_maintenance.Visible = False
If TextBox1 = MdP(Choix) Then
  Accueil.Controls("bouton_" & MdP(Choix)).Visible = True
  Utilisateurs.Hide
  Else
  MsgBox "Mot de passe non valide ! Veuillez recommencer, svp.", vbOKOnly, "ERREUR MOT DE PASSE"
End If
End Sub

Private Sub CommandButton2_Click()
Utilisateurs.Hide
End Sub

Private Sub UserForm_Activate()
Nom = Array("Opérateur", "Maintenance")
MdP = Array("opérateur", "maintenance")

Accueil.bouton_opérateur.Visible = False
Accueil.bouton_maintenance.Visible = False
ComboBox1.Clear
For i = 0 To UBound(Nom)
  ComboBox1.AddItem Nom(i)
Next

End Sub

Espérant avoir répondu.

Cordialement.

 

Vote positif 0 Vote négatif

T

touwhite

XLDnaute Nouveau

• 27 Décembre 2010

• #13

Re : Gestion utilisateur sous VBA

Sa marche !!
Merci beaucoup

Cordialement

 

Vote positif 0 Vote négatif