Feuille protégée quand on va dessus

Bonjour,

j'ai un classeur avec 4 feuilles et plusieurs petites macros.

A la base je dois protéger 3 feuilles et une qui ne doit pas l'être( feuille Calcul)

On va dire que j'ai réussi cette étape, même si il y a à redire sur le code (je sais).

Private Sub Workbook_Activate()
    Application.ScreenUpdating = False
    'Cache le ruban'
    For Each Sh In Sheets
        Sh.Protect , userinterfaceonly:=True
    Next
    Sheets("Calcul").Unprotect 'Ici la feuille que je ne veux pas protéger.

End Sub

Bon, le souci c'est que cela me protège une feuille qui se nomme données, mais pas comme je le souhaite.

Il faut que lorsque je vais sur cette feuille données, la protection soit (j'ai fait avec enregistreur)

Sub Macro1()
'
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFiltering:=True
End Sub

Comment je peux faire pour lorsque je vais sur la feuille données, elle soit protégée avec ces paramètres automatiquement ?

Il faut mettre la macro sur la feuille directement avec un privat quelquechose ?

Car ma macro de départ me protège bien ma feuille données, comme les autres, mais sans paramètres (je veux dire par là feuille protégé mais ou on peut pouvoir supprimer les lignes, utiliser les filtres automatiques)

Merci pour votre aide encore une fois,

et bonne année 2016 à tous

j'ai trouvé comment faire, et mettre le code sur la feuille en question

Private Sub Worksheet_Activate()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFiltering:=True

End Sub