Conditionner l'utilisation d'une macro par un mot de passe

Soyez le premier à donner votre avis sur cette source.

Vue 11 544 fois - Téléchargée 907 708 fois

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_laestrella
S'inscrire maintenant

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.