Macro to configure screen when file opens and closes

[ChristineJ]

I've been using the codes below on buttons to toggle back and forth between a split screen (with scrollbars) and a full screen.

Instead of the buttons and I'd like to change it so that when the file opens it automatically runs the SPLIT SCREEN macro AND when the user closes either of the two screens/panes it automatically runs the FULL SCREEN macro and closes the entire file (whether the user chooses to save or not). Can someone help with this?

FULL SCREEN

Sub FullScreen()
Application.ScreenUpdating = False
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
Application.Goto Range("A1")
End Sub

SPLIT SCREEN

Sub SplitScreen()
Application.ScreenUpdating = False
Dim wd As Double, ht As Double
 
    wd = Application.UsableWidth
    ht = Application.UsableHeight
 
    With ActiveWindow
        .WindowState = xlNormal
        .Left = 0
        .Top = 0
        .Width = wd * 1 / 2
        .Height = ht
        Application.Goto Range("A1"), Scroll:=True
    End With
 
    With ActiveWindow.NewWindow
        .Left = wd * 1 / 2
        .Top = 0
        .Width = wd * 1 / 2
        .Height = ht
        Application.Goto Range("AA1"), Scroll:=True
    End With
Application.ScreenUpdating = True
End Sub

 

[SillyCat]

Should be just a case of running your macros when the approate events are tiggered.

Private Sub Workbook_Open()
    Run "SplitScreen"
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Excel.Window)
    Run "FullScreen"
End Sub

That code has to go into the 'ThisWorkbook' section (In the VBA Editor) double click 'ThisWorkbook' and change the section from (General) to Workbook in the drop down box just above where you type your code.

Oh as as you are making macros run when you open a workbook. If you want to open a workbook without the Workbook_Open() running.
Just hold down shift key when you open the excel sheet from the File->Open dialog or most recently used list.