Excel - otevírání sešitu na konkrétním listu
Napsal: 06 dub 2014 21:11
od bloom
Ahoj, potřeboval bych vyřešit problém, aby se mi sešit při otevření vždy otevřel na jednom s tom stejném konkrétním listu, bez ohledu na to, na kterém listu byl sešit uložený. Chtěl jsem to vyřešit pomocí makra spouštějícím se při otevření sešitu, ovšem při otevření jsou makra nastavená jako nepovolená (a bohužel s tím nemůžu nic měnit), tudíž nic nefunguje. Mohl bych někoho poprosit o radu, jak problém vyřešit? Díky moc.
Re: Excel - otevírání sešitu na konkrétním listu
Napsal: 07 dub 2014 06:02
od cmuch
To lze vyřešit tak, že do ThisWorkBook vložíš toto pro zkrytí VŠECH listů kromě "List1" (nastav podle sebe)
Kód: Vybrat vše
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim List As Worksheet
'skryje všechny listy mimo List1
For Each List In Worksheets
If List.Name <> "List1" Then
Sheets(List.Name).Visible = 2
Else
'neskryje List1
End If
Next List
End Sub
A tuto pro zobrazení všech listů
Kód: Vybrat vše
Private Sub Workbook_Open()
Dim List As Worksheet
'zobrazi všechny listy
For Each List In Worksheets
Sheets(List.Name).Visible = True
Next List
End Sub
A potom kdo sešit otevře a nepovolí makra tak bude mít zobrazen pouze list co sis navolil s informací že si má povolit makra.
Tady je něco podobného, tady to kontroluje i uživatele