Problème protection feuille

Bonjour, j'ai un petit problème avec ma protection de page

J'ai une macro en feuille 3 qui est la suivante:

Private Sub Worksheet_Activate()

Recopie

End Sub

Afin de conserver les macro tout en protejant j'ai rajouter ceci

Private Sub Worksheet_Activate()

ActiveSheet.Unprotect "aerolia"

Recopie

ActiveSheet.Protect "aerolia"

End Sub

Quand je fais retirer la protection cela fonctionne, mais dès que je selectionne une autre cellule, la feuille se re protège automatiquement.

J'aimerai débloquer avec le code

et que la feuille se rebloque uniquement quand je redémarre le fichier.

Merci d'avance

Essaie d'utiliser un autre événement que Worksheet_Activate().