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
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
A voir également:
- Urgent je voudrai savoir comment integrer un mot de passe à ma macro mais aussi
- Comment créer un mot caché - Forum C# / .NET
- Mélangeur de mot - Forum PHP
- Mélanger un mot ✓ - Forum Delphi / Pascal
- Mot aléatoire ✓ - Forum C
- Mélanger les lettres d'un mot - Forum Javascript / DHTML
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
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
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