Zamčení sešitu tak, aby fungovalo seskupování

V některých případech můžete potřebovat zamknout list tak, aby stále fungovalo rozbalování a sbalování sloupců nebo řádků. 

Nejspíš nejdřív zkusíte zamknout bez zablokování rozbalování. Jenomže to není správná cesta – volba pro sbalování a rozbalování tady prostě není.

Tak co s tím? Řešením je toto makro, které umí udělat to, co nejde přes uživatelské rozhraní Excelu – zamkne soubor tak, aby zůstalo rozbalování odemčené.

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