Seuls les detenteurs du mot de passe pourront executer la Macro
Ci joint le code du user form demandant le mot de passe
Source / Exemple :
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
Conclusion :
A pluche
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.