Protéger une feuille

Private Sub Workbook_Open() 
With Sheets("Le nom de ta feuille") 
.EnableOutlining = True 
.Protect userInterfaceOnly:=True 
End With 
End Sub 

A partir de cette macro de Mytå, je souhaite intégrer un mot de passe pour éviter que l'utilisation enlève la protection par outils->protection ...

Attention je ne veux pas de boite de dialogue au démarage me demandant le mot de passe

avec un truc du genre

Sheets("le nom de ta feuille").Unprotect Password:="ton mot de passe"

met ça au début de ton code

comme ça, la macro tourne déverouillée

puis en fin de code, tu remets ça :

Sheets("le nom de ta feuille").Protect Password:="ton mot de passe"

ta feuille se reverouille

tu devrais ajouter du code pour enregistrer automatiquement ta feuille quand tu fermes

bon, je suis novice dans le code, si ça se trouve, ça ne va pas dans ton cas. Ca fonctionne pour moi, mais bon!

Avec ta macro il me demande le mot de psse à l'ouverture de mon fichier.

Je veux qu'il demande le mot de passe uniquement quand on chercher à déprotéger la feuille via outils-> protection ...

Avec ta macro il me demande le mot de psse à l'ouverture de mon fichier.

Je veux qu'il demande le mot de passe uniquement quand on chercher à déprotéger la feuille via outils-> protection ...

Bonjour,

Le code de Jeremie est bon. Essaye comme ceci en veillant à ce que la feuille soit protégée avant de fermer ton fichier.

Private Sub Workbook_Open()
Sheets("feuil1").Unprotect password:="j2c"
End Sub

Amicalement

Dan