Bonjour tout le monde
s'il vous plait je sollicite une autre fois vos aides et merci beaucoup d'avances pour n'importe suggestion :
J'ai dans userform1 une combobox1 et textbox1 et label1 et commandbutton1
ComboBox1 pour afficher les noms des utilisateurs qui sont dans Feuil "DATABASE" plage [A2:A6]
TextBox1 pour tapper les mots de passe qui sont dans Feuil "DATABASE" plage [B2:B6]
Label1 pour afficher les numeros de tentatives
CommandButton1 pour acceder au fichier si le mot de passe est correcte
Apres 3 fausses tentatives l'utilisateur sera bloqué .. et sera signalé dans la plage [C2:C6] le mot "VRAI"..et il ne peut pas acceder au fichier sauf si l'admin qui est ici akrami1 change le mot dans la cellule marquee "VRAI" au mot "FAUX".
La plage [D2:O6] pour marquer un X ..
Tous les utilisateurs peuvent acceder uniquement au feuilles qui sont signalees par X ..comme exemple :
akrami1 peut acceder dans tous les onglets
akrami5 peut acceder uniquement au Feuil9
SVP ce que j'aimerai bien avoir si vous pouvez m'aider pour finir completement ce fichier :
1-Le commandbutton1 se sera en couleur verte si le mot de passe est correcte
2-Changer Label1 qui affiche les numeros de tentatives par msgbox
3-Enfin lorsque je tappe le mot de passe correcte alors s'affichera un message box qui affiches les onglets disponibles pour cet utilisateur.
Merci beaucoup d'avance pour l'aide
Sincerement
AKRAMI
J'ai commencé a modifier ce code mais j'ai pas reussi a ajouter ces complements :
s'il vous plait je sollicite une autre fois vos aides et merci beaucoup d'avances pour n'importe suggestion :
J'ai dans userform1 une combobox1 et textbox1 et label1 et commandbutton1
ComboBox1 pour afficher les noms des utilisateurs qui sont dans Feuil "DATABASE" plage [A2:A6]
TextBox1 pour tapper les mots de passe qui sont dans Feuil "DATABASE" plage [B2:B6]
Label1 pour afficher les numeros de tentatives
CommandButton1 pour acceder au fichier si le mot de passe est correcte
Apres 3 fausses tentatives l'utilisateur sera bloqué .. et sera signalé dans la plage [C2:C6] le mot "VRAI"..et il ne peut pas acceder au fichier sauf si l'admin qui est ici akrami1 change le mot dans la cellule marquee "VRAI" au mot "FAUX".
La plage [D2:O6] pour marquer un X ..
Tous les utilisateurs peuvent acceder uniquement au feuilles qui sont signalees par X ..comme exemple :
akrami1 peut acceder dans tous les onglets
akrami5 peut acceder uniquement au Feuil9
SVP ce que j'aimerai bien avoir si vous pouvez m'aider pour finir completement ce fichier :
1-Le commandbutton1 se sera en couleur verte si le mot de passe est correcte
2-Changer Label1 qui affiche les numeros de tentatives par msgbox
3-Enfin lorsque je tappe le mot de passe correcte alors s'affichera un message box qui affiches les onglets disponibles pour cet utilisateur.
Merci beaucoup d'avance pour l'aide
Sincerement
AKRAMI
J'ai commencé a modifier ce code mais j'ai pas reussi a ajouter ces complements :
Code:
Private Sub CommandButton1_Click()
Dim n As Integer
Dim pwd As String
Dim Tries As Integer
Tries = CInt(Label1.Caption)
n = ComboBox1.ListIndex
If n = -1 Then
Exit Sub
End If
pwd = Range("Passwords").Cells(n + 1, 1)
If TextBox1 = pwd Then
'MsgBox "Bienvenue ............." 'le nom de l'utilisateur ça dépant du combobox1
'MsgBox " sont disponibles pour vous " & UCase(rSheets.Rows(lUserRow).Value) & " ... Les Feuilles ", vbInformation, ComboBox1.Text
Unload Me
Exit Sub
End If
Tries = Tries - 1
If Tries > 0 Then
Label1.Caption = Tries
TextBox1.Value = ""
TextBox1.SetFocus
MsgBox "You have failed to login after 3 attempts." & vbLf & "Your account has been locked.", vbOKOnly + vbExclamation
Unload Me
End If
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = "3"
ComboBox1.RowSource = Range("Users").Address(External:=True)
End Sub
Dernière modification par un modérateur: