VBA/background.bas at master · jonmoon74/VBA · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Attribute VB_Name = "Module1"
Sub clearback()
Attribute clearback.VB_ProcData.VB_Invoke_Func = " \n14"
'
' clearback Macro
'

'
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    Application.ShowStartupDialog = False
    Application.DisplayFullScreen = True
End Sub
Sub showback()
Attribute showback.VB_ProcData.VB_Invoke_Func = " \n14"
'
' showback Macro
'

'
    Application.DisplayFullScreen = False
    With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
        .DisplayOutline = True
        .DisplayZeros = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
End Sub