fonction "si" je pense par macro

[julie999]

bonjour
je recherche une petite macro pour autorisé l'accés a un programme
dans la colonne B&C la liste des utilisateur et mot de passe autorisé
dans la colonne F&G le nom de l'utilisateur et le mot de passe de la personne qui tente de se connecter
comment faire pour que si le nom utilisateur et le mot de passe contenu en F5 et G5 figure dans la liste B4:C21 excel affiche un message"accés autorisé" puis sélectionné la feuille "menu"
Julie

 

[Orodreth]

Re : fonction "si" je pense par macro

Bonjour,

C'est loin d'être parfait, mais ça te donnera une piste pour ton problème.

Dans le module "This_Workbook", 2 évènements: l'ouverture du classeur et la fermeture du classeur.
A l'ouverture, appel d'un formulaire qui demande un nom d'utilisateur et un mot de passe.

La feuille "Menu" est invisible à l'ouverture du classeur, sauf si on renseigne correctement User & Pass.

Dans le code du formulaire:
- Si les textes sont vides, message d'alerte
- Si le mot de passe est incorrect: message d'erreur
- Si l'utilisateur n'est pas trouvé: message d'erreur
- Si utilisateur trouvé et mot de passe bon: message "Connexion autorisée" et affichage de la feuille "Menu"

La fermeture du classeur rend à nouveau invisible la feuille "Menu".

ATTENTION: tu dois t'assurer que le classeur s'ouvre en exécution de macros directement (sécurité basse)

Tu peux tester avec "User1" et "Pass1"

Cordialement,
Orodreth

 

[julie999]

Re : fonction "si" je pense par macro

bonjour Orodreth,le fil
oui c'est super par userform
comment récupérer la valeur de l'utilisateur dans la celulle f- de la feuille User_Pass
est ce possible une deconection automatique au bout de 1 heure par exemple
julie

 

[Orodreth]

Re : fonction "si" je pense par macro

Bonjour,

Rapidement, pour affecter la valeur des textboxs à des cellules, dans le code, ça donnerait un truc comme ça

Worksheet("User_Pass").Range("F1").value = txt_User.text
Worksheet("User_Pass").Range("G1").value = txt_Pass.text

Ou par l'utilisation de cells (que j'ai tendance à préférer)

Worksheet("User_Pass").Cells(1,6).value = txt_User.text
Worksheet("User_Pass").Range(1,7).value = txt_Pass.text

A mettre dans le code du cmd_Cnx_Click() (dans la section "Connexion autorisée")

Après pour le timer ... là, je sèche. Je sais gérer le Timer en lui-même, mais pas les évènements qui vont avec ...
Si quelqu'un peut te renseigner sur cette question, ce serait cool

Cordialement,
Orodreth

 

[julie999]

Re : fonction "si" je pense par macro

Bonjour orodreth ,le fil
j'ai essayer mais je n'arrive pas a récupérer la valeur de l'utilisateur en cellule F6 de la feuille User_Pass
Julie

 

[Orodreth]

Re : fonction "si" je pense par macro

Bonjour,

Ci-joint, la version du classeur que j'avais posté, corrigée pour intégrer le référencement de l'utilisateur autorisé.

Vois si ça te convient

Cordialement,
Orodreth

 

[julie999]

Re : fonction "si" je pense par macro

bonjour Orodreth,le fil
super
en plus tu m'a mis les explications avec comme ça je pourrais le décortiqué afin de le réutilisé plus tard
un grand merci
Julie

 

[Orodreth]

Re : fonction "si" je pense par macro

Je t'en prie

Première fois trop pris par le boulot pour commenter mon code, mea culpa, j'aurais du prendre le temps.

Si tu as des questions, n'hésite pas à revenir