Groupe/dissocier feuille protéger

bonjour,

voila mon problème lorsque j'enregistre mon fichier que je l'ouvre à nouveau grouper/dissocier est à nouveau bloqué.

je sais pas si vous avez une idée ?

Merci d'avance.

voila mon code

Sub dev1()

    Sheets("Acceuil").Select
    ActiveSheet.Shapes.Range(Array("AutoShape 7")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 255, 0)
        .Transparency = 0
        .Solid

    Sheets("Poly A").Select
    ActiveSheet.Unprotect
    ActiveSheet.EnableAutoFilter = True
    ActiveSheet.EnableOutlining = True

    Range("B40:AK57").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B59:AK76").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B78:AK95").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B97:AK114").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B116:AK133").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B135:AK152").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B154:AK171").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B173:AK190").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B192:AK209").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B211:AK228").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B230:AK247").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B249:AK266").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    Range("B268:AK285").Select
     Selection.Locked = False
    Selection.FormulaHidden = False

    ActiveSheet.Protect Password:="0000", DrawingObjects:=True, contents:=True, Scenarios:=True, userInterfaceOnly:=True
    Range("A1").Select

    End With

End Sub