-
Notifications
You must be signed in to change notification settings - Fork 0
/
cActiveSheetBus.cls
64 lines (57 loc) · 1.92 KB
/
cActiveSheetBus.cls
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "cActiveSheetBus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'Notify Activesheet of Workbook Events
'Revision History
' [20131127]
' Added beforeSaveAs Call-back
Option Explicit
Const cModuleName = "cActiveSheetBus"
Const cmIndent = 1
Sub activeSheetCallBack(ws As Worksheet, cb As String)
Const myName As String = "activeSheetCallBack"
On Error GoTo fnCallbackFailed
If debugMode Then Debug.Print timeStamp(Indent:=cmIndent, Caller:=cModuleName, Context:=myName, message:="call " & cb & " in sheet: " & ws.Name)
CallByName ws, cb, VbMethod
On Error GoTo 0
Exit Sub
fnCallbackFailed:
If debugMode Then Debug.Print timeStamp(Indent:=cmIndent, Caller:=cModuleName, Context:=myName, message:=cb & " FAILED in sheet: " & ws.Name)
Err.Clear
End Sub
Public Sub onOpen(ws As Worksheet)
activeSheetCallBack ws, "onOpen"
End Sub
Public Sub beforeClose(ws As Worksheet)
activeSheetCallBack ws, "beforeClose"
End Sub
'[20131127]
Public Sub beforeSaveAs(ws As Worksheet)
activeSheetCallBack ws, "beforeSaveAs"
End Sub
Public Sub beforeSave(ws As Worksheet)
activeSheetCallBack ws, "beforeSave"
End Sub
Public Sub afterSave(ws As Worksheet)
activeSheetCallBack ws, "afterSave"
End Sub
Public Sub onWindowActivate(ws As Worksheet)
activeSheetCallBack ws, "onWindowActivate"
End Sub
Public Sub onWindowDEActivate(ws As Worksheet)
activeSheetCallBack ws, "onWindowDEActivate"
End Sub
Private Sub Class_Terminate()
Const cpName As String = "Class_Terminate"
If debugEvents Then Debug.Print timeStamp(Indent:=cmIndent, Caller:=cModuleName, Context:=cpName)
End Sub
Private Sub Class_Initialize()
Const cpName As String = "Class_Initialize"
If debugEvents Then Debug.Print timeStamp(Indent:=cmIndent, Caller:=cModuleName, Context:=cpName)
End Sub