PC-HELP.CZ

Dobrý den,

Prosím o pomoc s codem. Jedná se o to:
Při otevření sešitu by se ukázal jen jeden list, zvolený např.List1, ostatní by byli skryté. Na tomto listu by bylo tlačítko. Po jeho zmáčknutí by se aktuální List1 skryl a naopak by se otevřely ostatní listy.

Ps: Ještě dodám, že při otevření sešitu, by se otevřel ten daný specifický List1, ale nešly by vidět žádné listy, až po zmáčknutí toho tlačítka.
tento code: ActiveWindow.DisplayWorkbookTabs = True

Toto lze, a to tak, že přes alt+f11 u zbylých listů které nechceš aby byli vidět nastavíš hodnotu visible na 2-xlSheetVeryHidden.

Pro tlačítko budeš pak mít makro kde nastavíš nejprve skrytým listům hodnotu visible na 1-xlSheetVisible
a tomu listu co se má skrýt nastavíš 2-xlSheetVeryHidden.

Ale při zavření sešitu musíš opět nastavit ty listy tak jak je chceš mít při dalším otevření sešitu,
to proto kdyby někdo nepovolil makra tak by ty listy viděl.

A pokud chceš aby nikdo ty listy nemoh zobrazit přes editor tak zamkni makra.

Měl jsem na mysli přes VBA. Takhle:

Private Sub Workbook_Open()

Sheets("Sheet1").Visible = xlSheetHidden

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Home").Visible = True


'ThisWorkbook.Save
End Sub

Ale už jsem si to vyřešil...dík za ochotu