Zamknutí listů - doplnění

[Libor G.]

Před nějakou dobou jsem se zde ptal, jak zamknou více listů současně - viz téma:

Excel - zamknutí více listů současně

Potřebuji do tohoto makra však ještě doplnit příkaz, který umožní při zamčeném listu:

1. používat automatické filtry
2. sbalovat a rozbalovat seskupené řádky a sloupce

Jak a jestli vůbec je možné toto zajistit.

Předem děkuji

[Libor G.]

Takže nakonec se mi metodou pokus omyl povedlo nalézt odpověď na první mou otázku:
Povolit automatické filtry v zamknutém listu lze příkazem: AllowFiltering:=True

Zápis tedy vypadá:

wSheet.Protect Password:=TextBox1.Text, AllowFiltering:=True

Avšak bod číslo dva nevím jak vyřešit.

[Stanly001]

Je to sice už nějaký pátek, ale také by mě zajímala odpověď na bod 2... Díky

[guest]

ad 1) Odpověděl jste si sám. Jinak se ale běžně pod VBA pracuje jinak - Unprotect, udělat, co je potřeba a Protect.
ad 2) Bez maker to tuším ani nejde.

S makry - viz něco jako:

With ActiveSheet
.EnableOutlining = True
.Protect UserInterfaceOnly:=True
End With

Pak to funguje i pod zamčeným listem. Vlastnost EnableOutlining najdete i v okně Properties editoru VBA a daného listu.