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

Soyez le premier à donner votre avis sur cette source.

Vue 11 694 fois - Téléchargée 907 724 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mardi 14 avril 2009
Statut
Membre
Dernière intervention
14 avril 2009

logiciel de gestion commercial appliqué par VB
Messages postés
5
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
18 novembre 2008

BONJOUR J AI telecharger ton programme quand je le compile sa s'execute parfaitement mais mon problème et que je n'arrive pas a l'associer avec le programme que je veux protéger si vous pouvez m'aider c urgent merci
Messages postés
1
Date d'inscription
dimanche 29 avril 2007
Statut
Membre
Dernière intervention
29 avril 2007

merci
Messages postés
26
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
30 mai 2007

A L'ATTENTION DE BIERATAISE
dans la ligne 14: vbCr correspond à "retour à la ligne".
le & veut tout simplement dire "et".
on peut saisir également "& chr(10) &" ou encore "& chr(13) &".
Attention : les guillemets ne sont pas à prendre en compte
Messages postés
55
Date d'inscription
mardi 28 juin 2005
Statut
Membre
Dernière intervention
4 mai 2006

Vous allez me trouver ennuyeux mais je ne comprends pas l'instruction à la ligne 14 & vbCr &.
Si qq1 la comprend qu'il me léexplique merci.
Afficher les 17 commentaires

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.