Discussion :

[carocaro630]

Bonjour à tous et à toutes.

Je veux protéger un classeur exel avec un bouton. Le fait d'appuyer sur le bouton ouvre une boîte de dialogues pour saisir le mot de passe et si le mot de passe est bon, mon fichier s'ouvre normalement.
Seulement, j'aimerais que le mot de passe apparaisse avec des astérisques. Et comment protéger la macro pour éviter que le code soit lisible ? En gros il me faut un mot de passe pour protéger le mot de passe et là je bloque.

Voici un code que j'ai trouvé sur le net, adapté à mon projet et qui fonctionne pour ouvrir le fichier. Mais le mot de passe n'est pas crypté et on peut voir le code de la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CommandButton1_Click()
    Dim MonPassWord As String
 
    MonPassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
    If MonPassWord <> "aurelie" Then MsgBox "Erreur Mot de Passe !", , "Attention": Exit Sub
    If MonPassWord = "aurelie" Then ActiveSheet.Protect "aurelie"
 
    Application.ScreenUpdating = False
    Dim wk As Worksheet
    For Each wk In Sheets
        wk.Protect Password:="aurelie", userinterfaceonly:=True
    Next wk
 
   Application.AskToUpdateLinks = False
ChDir "P:\MG"
    Workbooks.Open Filename:="P:\MG\PLAN.xlsm"
    Sheets("PLAN").Select
    ThisWorkbook.Close False
    Application.ScreenUpdating = False

Merci à tous

[All4n]

Bonjour,

Pour protéger ton code tu peux faire un click droit dans l'arborescence de gauche (du menu ALT + F11) sur le VBAProject => propriétés => protection pour ajouter un mot de passe..

Cordialement,
Allan GEOFFROY.

[Didier Gonard]

Bonjour,

j'aimerais que le mot de passe apparaisse avec des astérisques.

regardes dans l'aide VBA à la propriété PasswordChar des objets TextBox

cordialement,

Didier