Urgent je voudrai savoir comment integrer un mot de passe à ma macro mais aussi

bierataise Messages postés 55 Date d'inscription mardi 28 juin 2005 Statut Membre Dernière intervention 4 mai 2006 - 12 juil. 2005 à 18:26
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 12 juil. 2005 à 21:37
Bonjour,comment faire pour insérer une userform qui demande un mot de passe et aussi comment bloquer l'accès aux codes de la macro.

1 réponse

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
12 juil. 2005 à 21:37
Bonsoir,

Tu crées un UserForm avec un TextBox et un CommandButton

Dans les propriétés du TextBox à PasswordChar tu tappes une *

Ensuite tu places ce code.Pour accéder à la feuille, l'utilisateur doit tapper janvier



Option Explicit

Const MotdePasse = "janvier"



Private Sub CommandButton1_Click()

If TextBox1.Text = MotdePasse Then

Unload Me

Else

MsgBox "Mot de passe incorrect, recommencer"

End If

End Sub



Dans ThisWorkbook, tu mets



Private Sub Workbook_Open()

UserForm1.Show

End Sub



à l'ouveture du classeur, le UserForm apparaîttra et il faudra le mot de passe pour y accéder.

Pour protéger tes macro, dans VBAProjet(Classeurx), un clic droit et dans Propriétés de VBAProjet, tu protèges par mot de passe.



jpleroisse
0