Odkryjte všechny pracovní listy - Příklady kódu VBA

Zrušit skrytí všech pracovních listů v sešitu

Následuje makro pro odkrytí všech listů v sešitu.

12345678 Sub UnhideAll ()Dim WS As worksheetPro každý WS v pracovních listechWS.Visible = TruedalšíEnd Sub

Zkontrolujte v sešitu skryté listy

Pokud máte podezření, že v sešitu jsou skryté listy, zkontrolujte, zda nejsou skryté listy:

1. Otevřete editor VB (ALT + F11)

2. V Průzkumníku projektů rozbalte Projekt pro váš sešit

3. Rozbalte objekty aplikace Excel pro sešit

Zobrazuje se v Průzkumníku projektů více listů, než se zobrazuje v sešitu?

Pokud je odpověď Ano, je to pravděpodobně proto, že jeden nebo více listů je skrytých.

wave wave wave wave wave