XL 2016 Ajout d'utilisateur VBA

[yann lucien]

Bonjour,

Je souhait ajouter du utilisateur ( 20 personnes ) avec utilisateur et mot de passe. Mais impossible j(ai un message d’erreurs.
Le 1er utilisateur ( Admin) fonctionnent mais pas le 2eme (yann)

Ci-joint le code

Private Sub CommandButton1_Click()
Dim action As String

action = "Connexion au classeur"
If Me.TextBox1 = "Admin" And Me.TextBox2 = "12345" Then
If Me.TextBox1 = "Yann" And Me.TextBox2 = "12345" Then
MsgBox "Connexion réussie"
End If

Call HistoriqueConnexion(action, Me.TextBox1)
End If
End Sub

Sub HistoriqueConnexion(action As String, Utilisateur As String)
Dim f As Worksheet
Dim Lr As Long
Dim Mois As String
Dim IndexMois As Integer

Set f = ThisWorkbook.Sheets("Hist Con")
Lr = f.Range("A" & Rows.Count).End(xlUp).Row + 1


IndexMois = Month(Date)

Select Case IndexMois
Case 1
Mois = "Janvier"
Case 2
Mois = "Février"
Case 3
Mois = "Mars"
Case 4
Mois = "Avril"
Case 5
Mois = "Mai"
Case 6
Mois = "Juin"
Case 7
Mois = "Juillet"
Case 8
Mois = "Aout"
Case 9
Mois = "Septembre"
Case 10
Mois = "Octobre"
Case 11
Mois = "Npvembre"
Case 12
Mois = "Decembre"

End Select

With f
.Range("A" & Lr).Value = Utilisateur
.Range("B" & Lr).Value = Now
.Range("C" & Lr).Value = action
.Range("D" & Lr).Value = Mois
.Range("e" & Lr).Value = Year(Date)

End With


Set f = Nothing
End Sub

 

[Staple1600]

Re

Justement, ton noviciat devrait t'inviter à consulter les Saintes Ecritures (comme j'essaie de le suggérer sans succès pour le moment😉 dans mes précédents messages)

Donc pour entre dans le Temple, il suffit d'entrer ici
Et, ici, c'est là ;-)

 

[Staple1600]

Re,

J'ai continué un peu sur ton sujet (et j'ai testé et si je publie c'est que le test est OK 😉)
Donc en attribuant cette nouvelle procédure au CommanButton1 de l'userform
(et ajoutant comme expliqué N couple Nom/Mot de passe dans le tableau Identités)
Ici dans cet exemple on a 3 utilisateurs

Private Sub CommandButton1_Click()
Dim Identités
Dim action As String
'Ajouter les identifiants/mot de passe sur le même shéma: Array("Nom","Mot de passe")
Identités = Array(Array("Admin", "12345"), Array("Yann", "12346"), Array("Staple", "1600"))
action = "Connexion au classeur"
If TextBox2 = Application.VLookup(TextBox1.Text, Identités, 2, 0) Then
MsgBox "Connexion réussie"
Call HistoriqueConnexion(action, Me.TextBox1)
Else
MsgBox "Accès refusé!", vbCritical, "Erreur"
End If
End Sub

 

[Staple1600]

Re

Juste pour te montrer la syntaxe de la chose
(et qui accessoirement permet de se rendre compte que ce n'est pas la meilleure manière de faire au niveau praticité 😉)

Private Sub CommandButton1_Click()
Dim Identités, action$
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Identités = _
Array(Array("Admin", "12345"), Array("Yann", "12346"), Array("Staple", "1600"), Array("Nom4", "1601"), Array("Nom5", "abc1"), _
Array("Nom6", "Papa"), Array("Nom7", "Maman"), Array("Nom8", "Hola0"), Array("Nom9", "VBA18"), Array("Nom10", "Tacos76"), _
Array("Nom11", "pipi01"), Array("Nom12", "Ban3A1"), Array("Nom13", "Prout18"), Array("Nom14", "1515"), Array("Nom15", "1664"), _
Array("Nom16", "04440"), Array("Nom17", "123123"), Array("Nom18", "mdP115"), Array("Nom19", "5857"), Array("Nom20", "x3Vp1"))
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
action = "Connexion au classeur"
If TextBox2 = Application.VLookup(TextBox1.Text, Identités, 2, 0) Then
MsgBox "Connexion réussie"
Call HistoriqueConnexion(action, Me.TextBox1)
Else
MsgBox "Accès refusé!", vbCritical, "Erreur"
End If
End Sub

 

[yann lucien]

Re

Juste pour te montrer la syntaxe de la chose
(et qui accessoirement permet de se rendre compte que c'est la meilleure manière de faire au niveau praticité 😉)

Private Sub CommandButton1_Click()
Dim Identités, action$
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Identités = _
Array(Array("Admin", "12345"), Array("Yann", "12346"), Array("Staple", "1600"), Array("Nom4", "1601"), Array("Nom5", "abc1"), _
Array("Nom6", "Papa"), Array("Nom7", "Maman"), Array("Nom8", "Hola0"), Array("Nom9", "VBA18"), Array("Nom10", "Tacos76"), _
Array("Nom11", "pipi01"), Array("Nom12", "Ban3A1"), Array("Nom13", "Prout18"), Array("Nom14", "1515"), Array("Nom15", "1664"), _
Array("Nom16", "04440"), Array("Nom17", "123123"), Array("Nom18", "mdP115"), Array("Nom19", "5857"), Array("Nom20", "x3Vp1"))
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
action = "Connexion au classeur"
If TextBox2 = Application.VLookup(TextBox1.Text, Identités, 2, 0) Then
MsgBox "Connexion réussie"
Call HistoriqueConnexion(action, Me.TextBox1)
Else
MsgBox "Accès refusé!", vbCritical, "Erreur"
End If
End Sub

 

[yann lucien]

Bonsoir,
Merci beaucoup
Un mot : Parfait

Merci encore
Cordialement
Yann

 

[Staple1600]

Re,

Petite précision:
Dans mon message précédent, il fallait lire (je viens de corriger)

(et qui accessoirement permet de se rendre compte que ce n'est pas la meilleure manière de faire au niveau praticité 😉)