Stránka 1 z 1

Excel- skryté listy

Napsal: 05 črc 2009 20:22
od 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?... :?

Re: Excel- skryté listy

Napsal: 05 črc 2009 22:24
od X
Můžeš sem upnout sešit nebo aspoň testovací, kde to nejde?

Re: Excel- skryté listy

Napsal: 05 črc 2009 23:22
od 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

Re: Excel- skryté listy  Vyřešeno

Napsal: 06 črc 2009 00:43
od 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

Re: Excel- skryté listy

Napsal: 06 črc 2009 08:15
od Dieesels
Děkuji za pomoc... :bigups: