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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

bloom
nováček
Příspěvky: 11
Registrován: březen 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod bloom » 06 dub 2014 21:11

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
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod cmuch » 07 dub 2014 06:02

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


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
    od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky
    2
    1845
    od kalosek Zobrazit poslední příspěvek
    29 čer 2023 19:39
  • Win 10 otevírání oken
    od tomkaspi » 22 lis 2023 00:04 » v Windows 11, 10, 8...
    1
    882
    od X Zobrazit poslední příspěvek
    22 lis 2023 03:33
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6000
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1646
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2325
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů