Excel- skryté listy

[Dieesels]

Dobrý den,
potřeboval bych odkrýt skryté listy. Nejsou skryté klasickým způsobem z kontextové nabídky Skryt, ale pomocí makra:

Kód: Vybrat vše

Private Sub Worksheet_Activate()
    ActiveSheet.Visible = False
End Sub

Když to změním na True, tak se nic neděje.
Jak na to?...

[X]

Můžeš sem upnout sešit nebo aspoň testovací, kde to nejde?

[mmmartin]

Pokud je ti jedno, jakou cestou list odkryješ, můžeš jít cestou přes menu, nemusíš dělat makro. A v makru pravděpodobně nebude stačit zaměnit False za True. Pokud list skrýváš, skryje se ti ten aktuálně zobrazený, když zadáváš zobrazení listu přes menu, ptá se tě to, který list se má zobrazit. A totéž mu musíš říct i v makru.

Kód: Vybrat vše

Sub Makro1()
'
' Makro1 Makro
'Sheets("List1").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub

Sub Makro2()
'Makro2 Makro
'Sheets("List2").Select
    Sheets("List1").Visible = True
End Sub

[mike007]

Tady máš makro pro odkrytí všech schovaných listů. Jsem po pěti pivech a dvou cuba libre, tak snad to bude ok

Sub odkryt_listy()
For Each List In Worksheets
List_jmeno = List.Name
Sheets(List_jmeno).Visible = True
Next List
End Sub

[Dieesels]

Děkuji za pomoc...