Stránka 1 z 1

EXCEL 2010 - list při otevření

Napsal: 23 bře 2011 14:04
od 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

Re: EXCEL 2010 - list při otevření

Napsal: 23 bře 2011 14:23
od 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

Re: EXCEL 2010 - list při otevření

Napsal: 23 bře 2011 18:36
od 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!

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

Napsal: 23 bře 2011 20:10
od 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

Re: EXCEL 2010 - list při otevření

Napsal: 24 bře 2011 12:55
od wecker
Díky!