Login pour accéder à un userform

Bonjour,

SVP, J'ai 3 userforms;

Je veux accéder aux userforms via login. (Chaque userform s'ouvre avec son propre login);

J’espère que vous m’aiderez.

Merci

Exemple :

Bonjour ANASS1,

J'ai réalisé quelque chose d'un peu différent, mais ça ressemble on ne sais jamais si ça peut aider :)

Moi, mon objectif était de créer une feuille Excel accessible uniquement avec un login et un mdp.

Le code donne ça :

Private Sub cbologin_Click()
On Error Resume Next

'déclaration de variables

Dim mot_de_passe As String
Dim role As String

'configuration de variables

mot_de_passe = WorksheetFunction.VLookup(txt_user, Sheets("Password").Range("B:D"), 2, 0)
role = WorksheetFunction.VLookup(txt_user, Sheets("Password").Range("B:D"), 3, 0)

    If mot_de_passe = txt_passe And role = "Admin" Then 'contrôler si c'est l'admin

    Sheets("DATA").Visible = True
    Sheets("DATA").Activate

    Else

MsgBox "L'ID ou le mot de passe est incorect ! Vérifier si la touche MAJ n'est pas activée !"

   End If

Me.txt_user = ""
Me.txt_passe = ""

End Sub

Je pense que le code que tu recherches peut s'en inspirer.

Bon courage !

Bonsoir Pirateeee10 ,

Merci pour votre attention

J'ai utilisé ce code mais cela n'a pas fonctionné.

Private Sub CommandButton1_Click()
On Error Resume Next

'déclaration de variables
Dim mot_de_passe As String
Dim role As String

'configuration de variables
role = WorksheetFunction.VLookup(TextBox1, Sheets("Feuil1").Range("A:B"), 1, 0)
mot_de_passe = WorksheetFunction.VLookup(TextBox2, Sheets("Feuil1").Range("A:B"), 2, 0)

    If mot_de_passe = TextBox2 And role = TextBox1 Then 'contrôler si c'est l'admin
UserForm1.show
    Else
MsgBox "L'ID ou le mot de passe est incorect ! Vérifier si la touche MAJ n'est pas activée !"
   End If

Me.TextBox1 = ""
Me.TextBox2 = ""

End Sub

Bonjour à tous,

Un essai ...

Il restera un peu d'ajustement sur les messages > mais, ça fonctionne ...

ric

Bonsoir ric,

J'ai utilisé ce code mais mais, ça fonctionne.

Merci, c'est plus parfait

Merci aussi Pirateeee10.