Blattschutz mir Gruppierung

Sub Makro1()
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1:BB14").Select
Selection.Locked = True
Selection.FormulaHidden = False
End Sub

Nun mein Problem: Das Blatt hat mehrere Gruppierungen die zwar nicht im
Bereich ("A1:BB14") sind, trotzdem lassen sich die Gruppierungen nicht mehr öffnen.
Wie könnte man das erreichen, dass die Gruppierungen nicht betroffen werden d.h.
vom Blattschutz ausgespart bleiben.
Kann mir jemand einen Tipp geben?
Vorab vielen Dank.
Grüße