21 lines
558 B
OpenEdge ABL
21 lines
558 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
END
|
|
Attribute VB_Name = "ThisWorkbook"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = True
|
|
Option Explicit
|
|
|
|
' =============================================================================
|
|
' ThisWorkbook Module
|
|
' Description: Auto-refresh on workbook open
|
|
' =============================================================================
|
|
|
|
Private Sub Workbook_Open()
|
|
' Automatic refresh when workbook opens
|
|
QuickRefresh
|
|
End Sub
|