mise en place de login et de mots de passe dans un classeur

[zephir94]

Bonjour à tous,

J'ai écris une macro pour protéger des données perso que chaque personne peuvent consulter avec un mot de passe et un login individuel.
Je n'arrive pas à en rentrer plusieurs, avec un ça marche sans problèmes mais si j'en rajoute 2,3... le mot de passe n'est plus reconnu !
Voici mon code :

Option Explicit
Private Sub CommandButton100_Click()
  Dim username, password As String
  Dim Cell As Range
  username = TextBox10.Text
  password = TextBox11.Text
  
  If username = "dede" And password = "jambon" Then
  Else
  MsgBox " Les données sont fausses", vbCritical
   Exit Sub
   End If
  If username = "abel" And password = "os" Then
  Else
  MsgBox " Les données sont fausses", vbCritical
   Exit Sub
   End If
 Set Cell = Feuil1.Columns(1).Find(username, LookIn:=xlValues, lookat:=xlWhole)
     If Cell Is Nothing Then MsgBox (" Le nom " & " " & username & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub
     Sheets("Agent").Rows("198:198").Value = Cell.EntireRow.Value
 Range("DE198:DM198").Select
    Selection.NumberFormat = "h:mm;@"
 Range("B198").Copy
   Range("L21").Select
    ActiveSheet.Paste
Range("A198").Copy
Range("J21").Select
Range("C198").Copy
 Range("N21").Select
Unload Me


 
End Sub

Merci par avance pour vos aides précieuses

Amicalement
zephir

 

[camarchepas]

Re : mise en place de login et de mots de passe dans un classeur

Bonjour ,

Voici une solution possible :

Attention au déclaration de variable,
comme tu l'avais écrit en fait username était un variant et pas un string

Option Explicit

Private Sub CommandButton100_Click()
  Dim username As String, password As String
  Dim Cell As Range
  username = TextBox10.Text
  password = TextBox11.Text
  

  If username = "dede" And password = "jambon" Then GoTo Suite
  If username = "abel" And password = "os" Then GoTo Suite

   MsgBox " Les données sont fausses", vbCritical
   Exit Sub

Suite:

 Set Cell = Feuil1.Columns(1).Find(username, LookIn:=xlValues, lookat:=xlWhole)
     If Cell Is Nothing Then MsgBox (" Le nom " & " " & username & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub
     Sheets("Agent").Rows("198:198").Value = Cell.EntireRow.Value
 Range("DE198:DM198").Select
    Selection.NumberFormat = "h:mm;@"
 Range("B198").Copy
   Range("L21").Select
    ActiveSheet.Paste
Range("A198").Copy
Range("J21").Select
Range("C198").Copy
 Range("N21").Select
Unload Me


 
End Sub

 

[zephir94]

Re : mise en place de login et de mots de passe dans un classeur

merci à toi mais je suis un boudin car j'ai utilisé or et ça marche comme ceci:

Option Explicit
Private Sub CommandButton100_Click()
  Dim username, password As String
  Dim Cell As Range
  username = TextBox10.Text
  password = TextBox11.Text
  
  If username = "dede" And password = "jambon" Or username = "abel" And password = "jambon2" Then
 Else
  MsgBox " Les données sont fausses", vbCritical
   Exit Sub
   End If

 Set Cell = Feuil1.Columns(1).Find(username, LookIn:=xlValues, lookat:=xlWhole)
     If Cell Is Nothing Then MsgBox (" Le nom " & " " & username & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub
     Sheets("Agent").Rows("198:198").Value = Cell.EntireRow.Value
 Range("DE198:DM198").Select
    Selection.NumberFormat = "h:mm;@"
 Range("B198").Copy
   Range("L21").Select
    ActiveSheet.Paste
Range("A198").Copy
Range("J21").Select
Range("C198").Copy
 Range("N21").Select
Unload Me

Merci à toi

Amicalement

Zephir