tohle by Vam mohlo pomoci - tato procedura musi byt ulozena v modulu ThisWorkbook
Private Sub Workbook_Open()
If Worksheets("List1").Range("a1") = "ne" Then Exit Sub
Dim List As String
List = "List5"
Z = MsgBox("Chceš otevřít list: " & List & "?", vbYesNo, "Přejít na list")
Select Case Z
Case vbNo
Exit Sub
Case vbYes
Worksheets(List).Activate
End Select
End Sub
Pokud jde o zaskrtavaci policko - mozne to je, ale uz by to bylo o dost slozitejsi a vyzadovalo by to zapisovat "stav" policka do nejake bunky v sesitucitovat