Zamykání listů při zachování funkce seskupení

Dobrý den,
řeším problém s ochranou vzoru tabulek. Mám v Excelu vytvořený vzor rozpočtu, který je formátovaný pomocí seskupení. Tento vzor potřebuji zamknout tak, aby ostatní mohli vyplňovat jen určité buňky, které jsou skryté v tom seskupení, ale nerozbili mi výpočtové vzorce. Mám u buněk nastavené “uzamčeno” ve formátu a našla jsem si, že list je možné zamknout tak, aby fungovalo seskupení pomocí níže uvedeného makra:

Sub zamknoutsheslem()
With Worksheets(“List1”)
.Protect Password:=”tadyzapsatheslo”, Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

Funguje to skvěle, dokud nezavřu a neotevřu sešit. Potom list sice zůstává zamčený, ale seskupené buňky opět nejde zobrazit. Můžete mi prosím někdo pomoci?