Excel - otevírání sešitu na konkrétním listu

[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.

[Reklama]

[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