P
Phil Hageman
The below Auto_Close is suppose to restore the screen
display (toolbars visible) and workbook tabs when the user
closes the window by clicking the "X" button. Auto_Clsoe
doesn't work. Can someone help me with the code? I have
included the Aut
pen the turns off full screen and tabs
in case it has something to do with why Auto_Close doesn't
work.
Sub Autpen()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
End If
Next
Worksheets("Scorecard").Select
ThisWorkbook.Colors(7) = RGB(255, 124, 128)
Application.AutoPercentEntry = True
Application.ScreenUpdating = True
End Sub
Sub Auto_Close()
ActiveWindow.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
display (toolbars visible) and workbook tabs when the user
closes the window by clicking the "X" button. Auto_Clsoe
doesn't work. Can someone help me with the code? I have
included the Aut
pen the turns off full screen and tabsin case it has something to do with why Auto_Close doesn't
work.
Sub Aut
pen()Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
End If
Next
Worksheets("Scorecard").Select
ThisWorkbook.Colors(7) = RGB(255, 124, 128)
Application.AutoPercentEntry = True
Application.ScreenUpdating = True
End Sub
Sub Auto_Close()
ActiveWindow.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub