Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto_Open/Close Mods
The below subs execute when the workbook is
opened/closed. I need to add code to turn off row and column headings in the Auto_Open, and to restore the headings in the Auto_Close. If anything else could use improvement, please suggest. Thanks, Phil Option Explicit Sub Auto_Open() 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("Customer").Select ActiveWindow.Zoom = 62 Worksheets("Financial").Select ActiveWindow.Zoom = 62 Worksheets("Learning and Growth").Select ActiveWindow.Zoom = 62 Worksheets("Internal Business Process").Select ActiveWindow.Zoom = 62 Worksheets("Internal Business Process").Select ActiveWindow.Zoom = 62 Worksheets("Scorecard").Select ActiveWindow.Zoom = 62 ThisWorkbook.Colors(7) = RGB(255, 124, 128) Application.AutoPercentEntry = True Application.ScreenUpdating = True End Sub Sub Auto_Close() Application.DisplayFullScreen = False ActiveWindow.DisplayWorkbookTabs = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto_Open/Close Mods
Turn on the macro recorder and perform the task manually. Then you will see
the code. -- Regards, Tom Ogilvy "Phil Hageman" wrote in message ... The below subs execute when the workbook is opened/closed. I need to add code to turn off row and column headings in the Auto_Open, and to restore the headings in the Auto_Close. If anything else could use improvement, please suggest. Thanks, Phil Option Explicit Sub Auto_Open() 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("Customer").Select ActiveWindow.Zoom = 62 Worksheets("Financial").Select ActiveWindow.Zoom = 62 Worksheets("Learning and Growth").Select ActiveWindow.Zoom = 62 Worksheets("Internal Business Process").Select ActiveWindow.Zoom = 62 Worksheets("Internal Business Process").Select ActiveWindow.Zoom = 62 Worksheets("Scorecard").Select ActiveWindow.Zoom = 62 ThisWorkbook.Colors(7) = RGB(255, 124, 128) Application.AutoPercentEntry = True Application.ScreenUpdating = True End Sub Sub Auto_Close() Application.DisplayFullScreen = False ActiveWindow.DisplayWorkbookTabs = True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto_Open/Close Mods
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Coordinated Auto_Open/Close | Excel Programming | |||
Auto_Open Check date and Close | Excel Programming | |||
Auto_Open Check date and Close | Excel Programming | |||
Auto_Open Check date and Close | Excel Programming | |||
Auto_Open Check date and Close | Excel Programming |