XL 2016 Ajout d'utilisateur VBA

yann lucien

XLDnaute Nouveau
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
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
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
VB:
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

XLDnaute Barbatruc
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é ;))
VB:
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
 
Dernière édition:

yann lucien

XLDnaute Nouveau
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é ;))
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly