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

Soyez le premier à donner votre avis sur cette source.

Vue 11 582 fois - Téléchargée 907 712 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

sbahelward
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
oumar1504
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
kakabrasil
Messages postés
1
Date d'inscription
dimanche 29 avril 2007
Statut
Membre
Dernière intervention
29 avril 2007
-
merci
cs_simplementyann
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
bierataise
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.

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.