Remettre la protection feuilles automatiquement après fermeture du fichier

Bonjour,

j'ai protégé chacune de mes feuilles mais j'aimerais que lorsque je ferme mon fichier la protection se remet automatiquement. Car quand j'ouvre mon fichier, j'ôte la protection mais quand je le ferme je ne la remet pas.

Il me semble qu'il faut une macro VBA mais j'ai du mal avec cette fonctionnalité.

Merci d'avance pour votre aide.

Bonjour, il faut aussi qu'on devine le mot de passe ?

Ah oui mince excusez moi

le voici: LionelAFF39

Bonjour Excelée,

Ce code devrais fonctionner : Le mot de passe est "123" à adapter bien sûr

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim feuil As Worksheet
For Each feuil In ThisWorkbook.Worksheets
    feuil.Protect "123"
Next feuil
End Sub

A+

EDIT: Bonjour Xmenpl réponse croisée

Bonjour Gabin37

Cela fonctionne!

Merci beaucoup pour ton aide!

Le code de Gabin avec un petit + :

userform à l'ouverture pour déproteger toutes les feuilles (enregistrer d'abord le fichier avant de l'utiliser )

Wahou!

Sacré petit + Xmenpl!

Cela fonctionne super bien

Merci