Bonjour,
dans mon usf qui demande un mot de passe pour ouvrir le fichier, j'aimerai imposer un deuxieme mot de passe,
par exemple le deuxième mdp en Cells(26, 1).Value , mais il faut au moins un des deux mdp pour ouvrir le fichier.
Pouvez-vous m'aider
voici le code :
-------------------------------------
Private Sub CmdOK_Click()
'variable compteur le nbre de tentatives.
Static compteur As Byte
compteur = compteur + 1
code = Cells(25, 1).Value
' vérifie le mot de passe entré
If TxtMotDePasse.Text = code Then
Unload Me
'Sheets('Listing').Visible = -1
Sheets('Janvier 1').Select
Else
'Si c'est la 3e fois que l'utilisateur entre un mot
'de passe incorrect, le programme prend fin
If compteur = 3 Then
msgbox 'Echec, mauvais mot de passe...' & _
vbCrLf & 'La commande ne peut être exécutée' & _
vbCrLf & vbCrLf & 'Accès refusé....', _
vbOKOnly + vbCritical, 'Mot de passe incorrect'
ActiveWorkbook.Save
Application.Quit
End If
msgbox 'Echec, mauvais mot de passe...' & _
vbCrLf & 'Accès refusé....', _
vbOKOnly + vbExclamation, 'Mot de passe incorrect'
TxtMotDePasse.Value = ''
TxtMotDePasse.SetFocus
Me.Caption = 'Entrez le mot de passe. Tentative ' & _
compteur + 1 & ' sur 3'
i = i + 1
If i = 2 Then
End
End If
End If
End Sub
---------------------------------------------------