P
Peter
Hi,
Situation:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
'KLEIN SCHERM
Application.WindowState = xlNormal
Application.Left = 196
Application.Top = 208.75
'UITZICHT EXCEL
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayCommentIndicator = 0
.ShowWindowsInTaskbar = False
End With
Problem:
Before I close the workbook, I would like to set excel back to default
(Maximized window)
I've put in:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.WindowState = xlMaximized
End Sub
But that did not work.
Please advise.
Regards,
Situation:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
'KLEIN SCHERM
Application.WindowState = xlNormal
Application.Left = 196
Application.Top = 208.75
'UITZICHT EXCEL
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayCommentIndicator = 0
.ShowWindowsInTaskbar = False
End With
Problem:
Before I close the workbook, I would like to set excel back to default
(Maximized window)
I've put in:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.WindowState = xlMaximized
End Sub
But that did not work.
Please advise.
Regards,