XL 2016 Controle des mots de passe

[univers63]

Re-bonjour,
Je reviens vers vous si vous le permettez pour une aide. Quand je fais entrer l'utilisateur et le mot de passe, qu'il soit admin ou user c'est la même chose. Les privilégies de user sont les mêmes que celui de Admin. Aussi j'aimerai bien mettre un contrôle à la saisie (Pas de champ vide, pas de saisie erronée). Merci.

 

[sylvanu]

Bonjour Univers,
Un essai en PJ.
J'ai remis le Workbook_Open dans ThisWorkbook, et ajouté ceci dans CommandButton1_Click :

'Recherche mot de passe correspondant au user
Mot_de_passe = WorksheetFunction.VLookup(Txt_user, Sheets("Members").Range("b:d"), 2, 0)
'Sécurité
If Txt_user = "" Or Mot_de_passe = "" Or Txt_pass <> Mot_de_passe Then
    R = MsgBox("Nom utilisateur ou mot de passe érroné(s)", 16, "Problème de sécurité")
    Sheets("Login").Txt_user.Text = ""
    Sheets("Login").Txt_pass.Text = ""
    Exit Sub
End If

en espérant avoir tout compris.

 

[univers63]

Re,
Merci Sylvanu, juste une autre question si vous le permettez, lorsque j’introduis le nom utilisateur et le mot de passe un contrôle se fait, s'il est "admin" toutes les "feuill" vont s'afficher mais s'il est "user" seulement "feuill" "Tableau de bord" qui s'affiche. Merci pour votre aide.

 

[sylvanu]

Dans votre code ce n'était pas géré, j'ai rajouté :

role = WorksheetFunction.VLookup(Txt_user, Sheets("Members").Range("B4:D1000"), 3, 0)
'on efface les données
Sheets("Login").Txt_user.Text = ""
Sheets("Login").Txt_pass.Text = ""
'affichage suivant User/Admin
If role = "user" Then
    Sheets("tableau de bord").Visible = True
    Sheets("tableau de bord").Activate
Else
    Sheets("content").Visible = True
    Sheets("members").Visible = True
    Sheets("compil").Visible = True
    Sheets("tableau de bord").Visible = True
    Sheets("login").Visible = 2
End If

Reste à rajouter un Sheets(xxx).Activate pour l' Admin. Actuellement par défaut c'est "content"

 

[univers63]

Bonsoir Sylvanu,
Merci pour votre aide, ça fonctionne très bien.