- Private Sub cmdAnnuler_Click()
- Unload Me
- MsgBox " Cette commande ne peut être exécutée sans le mot de passe", vbOKOnly + vbExclamation, "Fin de la commande"
- End
- End Sub
-
- Private Sub CmdOK_Click()
- Static compteur As Byte
- compteur = compteur + 1
- If txtMotDePasse.Text = "password" Then
- Unload Me
- Else
- If compteur = 3 Then
- MsgBox "Echec de la saisie du mot de passe." & vbCr & " La commande nepeut être exécutée", vbOKOnly + vbExclamation, "Mot de passe incorrect"
- End
- End If
-
- MsgBox " le mot de passe fourni n'est pas correct.", vbOKOnly + vbExclamation, "Mot de passe incorrect "
- txtMotDePasse.Value = ""
- txtMotDePasse.SetFocus
- Me.Caption = "Entrez le mot de passe. Tentative " & compteur + 1 & " sur 3"
-
- End If
-
- End Sub
-
- Private Sub UserForm_Initialize()
- txtMotDePasse.Value = ""
- txtMotDePasse.SetFocus
- End Sub
-
- Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer)
- If closeMode = vbFormControlMenu Then
- Me.Hide
- MsgBox "Cette Comande ne peut être exécutée sans le mot de passe.", vbOKOnly + vbExclamation, "Fin de la commande"
- End
- End If
-
- End Sub
Private Sub cmdAnnuler_Click()
Unload Me
MsgBox " Cette commande ne peut être exécutée sans le mot de passe", vbOKOnly + vbExclamation, "Fin de la commande"
End
End Sub
Private Sub CmdOK_Click()
Static compteur As Byte
compteur = compteur + 1
If txtMotDePasse.Text = "password" Then
Unload Me
Else
If compteur = 3 Then
MsgBox "Echec de la saisie du mot de passe." & vbCr & " La commande nepeut être exécutée", vbOKOnly + vbExclamation, "Mot de passe incorrect"
End
End If
MsgBox " le mot de passe fourni n'est pas correct.", vbOKOnly + vbExclamation, "Mot de passe incorrect "
txtMotDePasse.Value = ""
txtMotDePasse.SetFocus
Me.Caption = "Entrez le mot de passe. Tentative " & compteur + 1 & " sur 3"
End If
End Sub
Private Sub UserForm_Initialize()
txtMotDePasse.Value = ""
txtMotDePasse.SetFocus
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer)
If closeMode = vbFormControlMenu Then
Me.Hide
MsgBox "Cette Comande ne peut être exécutée sans le mot de passe.", vbOKOnly + vbExclamation, "Fin de la commande"
End
End If
End Sub