PC-HELP.CZ

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

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.

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

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.