XL 2016 Macro qui ne fonctionne pas quand la feuille est protégée

Bonjour,

Le sujet a été abordée à de nombreuses reprises mais malgré avoir consulté beaucoup de solutions, je n'arrive pas utiliser ma macro quand la feuille est protégée.

J'ai un fichier ou une macro masque des lignes en fonction des choix d'une cellule (H4) dans mon fichier.

Quand je protège ma feuille (même avec une macro pour déprotéger et protéger), alors la macro ne fonctionne pas et m'affiche

Quelqu'un peut-il m'aider ?

Ma macro :

Private Sub Lignes_10_12()

If Rows("10:12").Hidden = True Then
ActiveSheet.Shapes("Check Box 1").Visible = False
ActiveSheet.Shapes("Check Box 2").Visible = False
ActiveSheet.Shapes("Check Box 3").Visible = False
ActiveSheet.Shapes("Check Box 4").Visible = False
Else
ActiveSheet.Shapes("Check Box 1").Visible = True
ActiveSheet.Shapes("Check Box 2").Visible = True
ActiveSheet.Shapes("Check Box 3").Visible = True
ActiveSheet.Shapes("Check Box 4").Visible = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("H4")) Is Nothing Then Exit Sub
Rows("15").Hidden = UCase(Target.Value) <> "NOVOFERM"
Rows("28").Hidden = UCase(Target.Value) <> "NOVOFERM"
Rows("10:13").Hidden = UCase(Target.Value) <> "KAWNEER"
Rows("17:27").Hidden = UCase(Target.Value) <> "KAWNEER"
Rows("29:30").Hidden = UCase(Target.Value) <> "EVENO"

End Sub