EXCEL 2010 - list při otevření Vyřešeno

[wecker]

zdravím,

mohl by mi prosím někdo pomoci (pokud toto lze) jak definovat nějaký list, který se má vždy zobrazit při spuštění souboru .xlsx?

např. chci aby se při otevření vždy zobrazil list1, nehledě na to, že jsem soubor uložil když jsme stál na listu2... ???

Díky

[Reklama]

[Branscombe]

Ahoj, vlož do "ThisWorkbook" toto a nebo si to uprav k obrazu svému ... Kdyby jsi nevěděl jak to upravit a co co dělá, tak se ozvi ...

Kód: Vybrat vše

Option Explicit

Private Sub workbook_open()
   On Error Resume Next
   
   Application.ScreenUpdating = False
   
    With Application
    .DisplayFullScreen = True
    .WindowState = xlMaximized
    .CommandBars(1).Enabled = False
    .Worksheets("Main").Select
    .ActiveWindow.SmallScroll Down:=-100
    End With

    Worksheets("List1").Select
   
   On Error GoTo 0
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
     With Application
      .DisplayFullScreen = False
      .CommandBars(1).Enabled = True
      .Worksheets("Main").Select
     End With

     Application.DisplayFullScreen = False
     Application.WindowState = xlMaximized
   On Error GoTo 0
End Sub


[wecker]

DÍKY moc! funguje, ale teď když to otevřu, tak se mi ten soubor otevře bez pásu karet (musím to minimalizovat a zas obnovit aby se mi ukázal) Nevíš kde může být chyba?
DÍKY!

[mike007]

Problém je v makru... je tam zbytečně moc kravin... Někdy méně znamená více ...

Kód: Vybrat vše

Private Sub Workbook_Open()
Worksheets("List1").Select
End Sub

[wecker]

Díky!