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
|