Do kódového okna ThisWorkbook vlož:Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.Close
End Sub
Private Sub Workbook_Open()
ActiveWindow.NewWindow
ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical
End Subcitovat
ActiveWindow.Close
End Sub
Private Sub Workbook_Open()
ActiveWindow.NewWindow
ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical
End Subcitovat