M
marcmarc150
Guest
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
---------------------------------------------------
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
---------------------------------------------------