MALICIOUS
260
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1204.002 Malicious File
T1105 Ingress Tool Transfer
The Excel file contains multiple high-severity VBA macro heuristics, including Workbook_Open and Auto_Open, indicating automatic execution upon opening. The script attempts to load external DLLs ('AccountingBook_xlsm_64.dll' or 'AccountingBook_xlsm_32.dll') and calls functions within them, suggesting it's designed to download and execute a secondary payload. The presence of hidden sheets further supports the concealment of malicious activity.
Heuristics 12
-
Invoice remittance address uses free webmail high SE_INVOICE_FREE_WEBMAIL_REMITTANCEDocument contains invoice and bank-transfer/payment context, but the remittance or payment contact address uses a consumer webmail domain. This is a strong business-email-compromise indicator.
-
VBA project inside OOXML medium 6 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Function i2twz85v2qgu(ByVal t7chxr14siq As String, ByVal l6pbnsc3oz4nt As String) Set i2twz85v2qgu = CreateObject(t7chxr14siq, l6pbnsc3oz4nt) End Function -
CallByName call high OLE_VBA_CALLBYNAMECallByName callMatched line in script
Case 0 e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r) Case 1 -
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECCompiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
-
Workbook_Open macro low OLE_VBA_WBOPENWorkbook_Open macroMatched line in script
#End If Private Sub Workbook_Open() [DNXVBC_COMPILED_VBA_DLL_INFO="Mj9tZGx3N3BwMm8wP0FjY291bnRpbmdCb29rX3hsc20="] -
Auto_Open macro low OLE_VBA_AUTOAuto_Open macroMatched line in script
Option Private Module Private Sub auto_open() l8mnvpbc4j52spe -
Auto_Close macro low OLE_VBA_AUTOCLOSEAuto_Close macroMatched line in script
End Function Private Sub auto_close() On Error Resume Next -
External relationship medium OOXML_EXTERNAL_RELExternal target in xl/externalLinks/_rels/externalLink1.xml.rels: /Users/Daniel/Documents/Program/GL7-1/GL8b/APBook-BK.xlsm
-
Callback phishing phone lure medium SE_CALLBACK_LUREDocument asks the user to call a phone number in billing, refund, subscription, fraud, or security context — consistent with callback phishing or tech-support scam patterns. Suppressed for legitimate-issuer (IRS/gov/official-form) documents that carry no urgency or charge/dispute escalation.
-
Hidden worksheet (veryHidden) low OOXML_HIDDEN_SHEETExcel workbook contains 25 hidden sheet(s) — hidden sheets are commonly used to conceal macro code, staging data, or intermediate payload construction
-
Fake invoice / payment lure low SE_INVOICE_LUREDocument contains invoice or payment language paired with an action verb — useful context when combined with link, macro, or attachment indicators
Extracted artifacts 3
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source from OOXML) | 55507 bytes |
SHA-256: ab0f771ccd52551ada61bfbdc8dbc3adbec356fa6a2b585a7c0dd01cf6636dc0 |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "mdlw7pp2o0"
Option Private Module
#If Win64 Then
Private Declare PtrSafe Function SetThisWbk Lib "AccountingBook_xlsm_64.dll" Alias "SetThisWorkbook" (ByVal twbk As Object) As Long
Private Declare PtrSafe Function t0j8re2jicevh Lib "AccountingBook_xlsm_64.dll" Alias "t0j8re2jicevh" (ByVal i As Long,ByVal obj As Object) As Long
Private Declare PtrSafe Function v0qdor1j7v1s Lib "AccountingBook_xlsm_64.dll" Alias "v0qdor1j7v1s" (ByVal i As Long,ByVal mp As LongPtr) As Long
Private Declare PtrSafe Function p4nu4uhjuw2a14 Lib "AccountingBook_xlsm_64.dll" Alias "p4nu4uhjuw2a14" () As Variant
Private Declare PtrSafe Sub q5jahxnba3 Lib "AccountingBook_xlsm_64.dll" Alias "q5jahxnba3" (ByVal dst As Any,ByVal src As LongPtr,ByVal sz As Long)
Private Declare PtrSafe Function f0cr4nhb04b9i9 Lib "AccountingBook_xlsm_64.dll" Alias "f0cr4nhb04b9i9" (ByRef p() As Any) As LongPtr
Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal libFileName As String) As LongPtr
Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As LongLong
Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As LongPtr
#Else
Private Declare Function SetThisWbk Lib "AccountingBook_xlsm_32.dll" Alias "SetThisWorkbook@4" (ByVal twbk As Object) As Long
Private Declare Function t0j8re2jicevh Lib "AccountingBook_xlsm_32.dll" Alias "b6gqrpy9@8" (ByVal i As Long, ByVal obj As Object) As Long
Private Declare Function v0qdor1j7v1s Lib "AccountingBook_xlsm_32.dll" Alias "z7az1oge2j5l@8" (ByVal i As Long, ByVal mp As Long) As Long
Private Declare Function p4nu4uhjuw2a14 Lib "AccountingBook_xlsm_32.dll" Alias "r5mlqxt0@0" () As Variant
Private Declare Sub q5jahxnba3 Lib "AccountingBook_xlsm_32.dll" Alias "t8lw0rpebe7iqh@12" (ByVal dst As Any, ByVal src As Long, ByVal sz As Long)
Private Declare Function f0cr4nhb04b9i9 Lib "AccountingBook_xlsm_32.dll" Alias "m3kex7f4cdwi@4" (ByRef p() As Any) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal libFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
#End If
Private Function k7fl4ao2r1() As String
On Error Resume Next
#If Win64 Then
Const dllName = "\AccountingBook_xlsm_64.dll"
#Else
Const dllName = "\AccountingBook_xlsm_32.dll"
#End If
k7fl4ao2r1 = ThisWorkbook.Path + dllName
End Function
Public Sub x5bcedfsp9()
#If Win64 Then
Dim hModule As LongPtr
#Else
Dim hModule As Long
#End If
Dim dllPath As String
On Error Resume Next
dllPath = k7fl4ao2r1()
hModule = GetModuleHandle(dllPath)
If hModule = 0& Then
hModule = LoadLibrary(dllPath)
Else
SetThisWbk Nothing
End If
If hModule = 0 Then
MsgBox "Cannot load '" & dllPath & "'"
ThisWorkbook.Close False
Else
#If Win64 Then
v0qdor1j7v1s 1&, AddressOf d4e1n08tsj1
v0qdor1j7v1s 6&, AddressOf i2dvcgu2s30yxv
v0qdor1j7v1s 2&, AddressOf n8wm26qi
v0qdor1j7v1s 4&, AddressOf l5dr0mnbcnape0j
v0qdor1j7v1s 3&, AddressOf i2twz85v2qgu
v0qdor1j7v1s 5&, AddressOf e2pjnoiwpft7xr
#Else
v0qdor1j7v1s 1&, AddressOf d4e1n08tsj1
v0qdor1j7v1s 6&, AddressOf i2dvcgu2s30yxv
v0qdor1j7v1s 2&, AddressOf n8wm26qi
v0qdor1j7v1s 4&, AddressOf l5dr0mnbcnape0j
v0qdor1j7v1s 3&, AddressOf i2twz85v2qgu
v0qdor1j7v1s 5&, AddressOf e2pjnoiwpft7xr
#End If
If SetThisWbk(ThisWorkbook) Then
t0j8re2jicevh 3&, Sheet1
t0j8re2jicevh 13&, Sheet10
t0j8re2jicevh 14&, Sheet11
t0j8re2jicevh 15&, Sheet12
t0j8re2jicevh 17&, Sheet13
t0j8re2jicevh 19&, Sheet14
t0j8re2jicevh 18&, Sheet15
t0j8re2jicevh 20&, Sheet16
t0j8re2jicevh 21&, Sheet17
t0j8re2jicevh 22&, Sheet18
t0j8re2jicevh 23&, Sheet19
t0j8re2jicevh 4&, Sheet2
t0j8re2jicevh 24&, Sheet20
t0j8re2jicevh 25&, Sheet21
t0j8re2jicevh 12&, Sheet22
t0j8re2jicevh 28&, Sheet23
t0j8re2jicevh 26&, Sheet24
t0j8re2jicevh 29&, Sheet25
t0j8re2jicevh 5&, Sheet3
t0j8re2jicevh 27&, Sheet32
t0j8re2jicevh 6&, Sheet4
t0j8re2jicevh 7&, Sheet5
t0j8re2jicevh 8&, Sheet6
t0j8re2jicevh 9&, Sheet7
t0j8re2jicevh 10&, Sheet8
t0j8re2jicevh 11&, Sheet9
t0j8re2jicevh 2&, ThisWorkbook
ThisWorkbook.Saved = True
Else
GoTo qpnt
End If
End If
Exit Sub
qpnt: ThisWorkbook.Close False
End Sub
Public Function w7oq8p2wxo0b4f() As Boolean
On Error Resume Next
#If Win64 Then
Const dllName = "AccountingBook_xlsm_64.dll"
#Else
Const dllName = "AccountingBook_xlsm_32.dll"
#End If
w7oq8p2wxo0b4f = GetModuleHandle(dllName) <> 0&
End Function
Public Sub l8mnvpbc4j52spe()
On Error Resume Next
If Not w7oq8p2wxo0b4f() Then
x5bcedfsp9
End If
End Sub
Public Function FreeCompiledDll() As Variant
Dim i As Long
Do
FreeCompiledDll = FreeLibrary(GetModuleHandle(k7fl4ao2r1))
i = i + 1
Loop While w7oq8p2wxo0b4f And i < 100
End Function
Private Sub auto_close()
On Error Resume Next
Dim p As Variant
ThisWorkbook.Saved = True
SetThisWbk Nothing
p = p4nu4uhjuw2a14
FreeCompiledDll
If p <> "" Then
Kill p & "cbinrtl.dll"
RmDir p
End If
End Sub
Private Sub f5x9huie()
On Error Resume Next
auto_close
ThisWorkbook.Close False
End Sub
#If Win64 Then
Function d4e1n08tsj1(ByVal p7d7krmux6 As Long) As LongPtr
#Else
Function d4e1n08tsj1(ByVal p7d7krmux6 As Long) As Long
#End If
On Error Resume Next
Select Case p7d7krmux6
Case 16&
d4e1n08tsj1 = VarPtr(Calendarfrm)
Case 30&
d4e1n08tsj1 = VarPtr(UserForm1)
End Select
End Function
Function i2dvcgu2s30yxv(ByVal k6si3npzyuda14 As Long) As Object
Select Case k6si3npzyuda14
#If Win64 Then
Case 0&
Set i2dvcgu2s30yxv = New Calendarfrm
Case 1&
Set i2dvcgu2s30yxv = New UserForm1
#Else
Case 0&
Set i2dvcgu2s30yxv = New Calendarfrm
Case 1&
Set i2dvcgu2s30yxv = New UserForm1
#End If
End Select
End Function
Sub n8wm26qi(ByVal i5z4q9403go1f As Object)
On Error Resume Next
If Not i5z4q9403go1f Is Nothing Then
Unload i5z4q9403go1f
End If
End Sub
Sub l5dr0mnbcnape0j(ByVal a4uhqmv48 As String, ByVal w7txtbv7ut As String)
Name a4uhqmv48 As w7txtbv7ut
End Sub
Function i2twz85v2qgu(ByVal t7chxr14siq As String, ByVal l6pbnsc3oz4nt As String)
Set i2twz85v2qgu = CreateObject(t7chxr14siq, l6pbnsc3oz4nt)
End Function
Function e2pjnoiwpft7xr(ByVal n8v3k4b4cv As Variant, ByVal x4hrsp5g5 As Variant, ByVal c6g8zebxe4r As Variant, ByRef l3mg4lz4to8qz8j() As Variant) As Variant
On Error Resume Next
Dim sz As Long
sz = UBound(l3mg4lz4to8qz8j) - LBound(l3mg4lz4to8qz8j) + 1
Select Case sz
Case 0
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r)
Case 1
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0))
Case 2
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1))
Case 3
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2))
Case 4
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2), l3mg4lz4to8qz8j(3))
Case 5
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2), l3mg4lz4to8qz8j(3), l3mg4lz4to8qz8j(4))
Case 6
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2), l3mg4lz4to8qz8j(3), l3mg4lz4to8qz8j(4), l3mg4lz4to8qz8j(5))
Case 7
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2), l3mg4lz4to8qz8j(3), l3mg4lz4to8qz8j(4), l3mg4lz4to8qz8j(5), l3mg4lz4to8qz8j(6))
Case 8
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2), l3mg4lz4to8qz8j(3), l3mg4lz4to8qz8j(4), l3mg4lz4to8qz8j(5), l3mg4lz4to8qz8j(6), l3mg4lz4to8qz8j(7))
Case 9
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2), l3mg4lz4to8qz8j(3), l3mg4lz4to8qz8j(4), l3mg4lz4to8qz8j(5), l3mg4lz4to8qz8j(6), l3mg4lz4to8qz8j(7), l3mg4lz4to8qz8j(8))
Case 10
e2pjnoiwpft7xr = CallByName(n8v3k4b4cv, x4hrsp5g5, c6g8zebxe4r, l3mg4lz4to8qz8j(0), l3mg4lz4to8qz8j(1), l3mg4lz4to8qz8j(2), l3mg4lz4to8qz8j(3), l3mg4lz4to8qz8j(4), l3mg4lz4to8qz8j(5), l3mg4lz4to8qz8j(6), l3mg4lz4to8qz8j(7), l3mg4lz4to8qz8j(8), l3mg4lz4to8qz8j(9))
End Select
End Function
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub l0l62wqdx Lib "AccountingBook_xlsm_64.dll" Alias "l0l62wqdx" (ByVal c As Integer)
Private Declare PtrSafe Sub v1ce3p0oheb6 Lib "AccountingBook_xlsm_64.dll" Alias "a3fmjsg3" ()
#Else
Private Declare Sub l0l62wqdx Lib "AccountingBook_xlsm_32.dll" Alias "l0l62wqdx@4" (ByVal c As Integer)
Private Declare Sub v1ce3p0oheb6 Lib "AccountingBook_xlsm_32.dll" Alias "h1b4d3619jdpb@0" ()
#End If
Private Sub Workbook_Open()
[DNXVBC_COMPILED_VBA_DLL_INFO="Mj9tZGx3N3BwMm8wP0FjY291bnRpbmdCb29rX3hsc20="]
x5bcedfsp9
v1ce3p0oheb6
End Sub
Private Sub Workbook_BeforeClose(ByRef Cancel As Boolean)
If w7oq8p2wxo0b4f() Then
l0l62wqdx Cancel
End If
End Sub
Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub k5lnmxrs4 Lib "AccountingBook_xlsm_64.dll" Alias "c0hbjh69dj3z8" (ByVal Target As Range)
Private Declare PtrSafe Sub s5jsgc14c7ka Lib "AccountingBook_xlsm_64.dll" Alias "g2sn2pcoh5k4g3" ()
Private Declare PtrSafe Sub q3kizpj4l035 Lib "AccountingBook_xlsm_64.dll" Alias "s6cpbmnt0q" ()
#Else
Private Declare Sub k5lnmxrs4 Lib "AccountingBook_xlsm_32.dll" Alias "t5p1csrh7dys4y@4" (ByVal Target As Range)
Private Declare Sub s5jsgc14c7ka Lib "AccountingBook_xlsm_32.dll" Alias "y8obcqk93a6lr@0" ()
Private Declare Sub q3kizpj4l035 Lib "AccountingBook_xlsm_32.dll" Alias "x0p8ifa3jyeizs@0" ()
#End If
Private Sub CommandButton1_Click()
s5jsgc14c7ka
End Sub
Private Sub CommandButton2_Click()
q3kizpj4l035
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
k5lnmxrs4 Target
End Sub
Attribute VB_Name = "Sheet4"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub p0q7540rvsym Lib "AccountingBook_xlsm_64.dll" Alias "e5sgm18y" (ByVal Target As Range)
#Else
Private Declare Sub p0q7540rvsym Lib "AccountingBook_xlsm_32.dll" Alias "u0ohvan8gdjpe@4" (ByVal Target As Range)
#End If
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
p0q7540rvsym Target
End Sub
Attribute VB_Name = "Sheet5"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub w2kxf8q3dkx Lib "AccountingBook_xlsm_64.dll" Alias "g1bg9695hmf1u0p" (ByVal Target As Range)
#Else
Private Declare Sub w2kxf8q3dkx Lib "AccountingBook_xlsm_32.dll" Alias "v2ycuhz5@4" (ByVal Target As Range)
#End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
w2kxf8q3dkx Target
End Sub
Attribute VB_Name = "Module19"
#If Win64 Then
Private Declare PtrSafe Sub r4i14jwipo1 Lib "AccountingBook_xlsm_64.dll" Alias "a0t4ug3abpf" ()
Private Declare PtrSafe Sub q6kpt2p28 Lib "AccountingBook_xlsm_64.dll" Alias "e1kb2b62tk43" ()
Private Declare PtrSafe Sub b1lhgmdqh71 Lib "AccountingBook_xlsm_64.dll" Alias "n5rhtmxfl9" ()
Private Declare PtrSafe Sub z3uvd7cmj0url Lib "AccountingBook_xlsm_64.dll" Alias "z0htsex6r" ()
Private Declare PtrSafe Sub j4rgyen8 Lib "AccountingBook_xlsm_64.dll" Alias "z1kv7qhxc" ()
#Else
Private Declare Sub r4i14jwipo1 Lib "AccountingBook_xlsm_32.dll" Alias "c7q5eht6irm@0" ()
Private Declare Sub q6kpt2p28 Lib "AccountingBook_xlsm_32.dll" Alias "m3ft7bryzi8@0" ()
Private Declare Sub b1lhgmdqh71 Lib "AccountingBook_xlsm_32.dll" Alias "f8xskwn26@0" ()
Private Declare Sub z3uvd7cmj0url Lib "AccountingBook_xlsm_32.dll" Alias "k3a18ckyw64n@0" ()
Private Declare Sub j4rgyen8 Lib "AccountingBook_xlsm_32.dll" Alias "e8pngn58m@0" ()
#End If
Private Sub SelectGL()
z3uvd7cmj0url
End Sub
Private Sub SelectSetup()
b1lhgmdqh71
End Sub
Private Sub GLExit()
r4i14jwipo1
End Sub
Private Sub Return2()
q6kpt2p28
End Sub
Private Sub ABMenu()
j4rgyen8
End Sub
Attribute VB_Name = "Module29"
#If Win64 Then
Private Declare PtrSafe Sub w4t856vbzfgp Lib "AccountingBook_xlsm_64.dll" Alias "r7xzjhw4ztotzgs" ()
#Else
Private Declare Sub w4t856vbzfgp Lib "AccountingBook_xlsm_32.dll" Alias "x0dje9fz@0" ()
#End If
Private Sub GetGLAll()
w4t856vbzfgp
End Sub
Attribute VB_Name = "Module39"
#If Win64 Then
Private Declare PtrSafe Sub u0dtnbwfnh2 Lib "AccountingBook_xlsm_64.dll" Alias "c4lwcsr7" ()
Private Declare PtrSafe Sub m0evl7th92jg Lib "AccountingBook_xlsm_64.dll" Alias "h1cvpkoy5o4de" ()
Private Declare PtrSafe Sub j7u8w2i0fgtu9qj Lib "AccountingBook_xlsm_64.dll" Alias "v1wb4xmwnxyb" ()
#Else
Private Declare Sub u0dtnbwfnh2 Lib "AccountingBook_xlsm_32.dll" Alias "b6t2fpe51g7uwc@0" ()
Private Declare Sub m0evl7th92jg Lib "AccountingBook_xlsm_32.dll" Alias "h1rs9bswn@0" ()
Private Declare Sub j7u8w2i0fgtu9qj Lib "AccountingBook_xlsm_32.dll" Alias "u8yncbuc3n6@0" ()
#End If
Private Sub help()
u0dtnbwfnh2
End Sub
Private Sub HelpGL()
j7u8w2i0fgtu9qj
End Sub
Private Sub HelpAPAR()
m0evl7th92jg
End Sub
Attribute VB_Name = "Sheet6"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet7"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Module49"
#If Win64 Then
Private Declare PtrSafe Sub v3bfego6 Lib "AccountingBook_xlsm_64.dll" Alias "f7nvuq0vohzlmv3" ()
#Else
Private Declare Sub v3bfego6 Lib "AccountingBook_xlsm_32.dll" Alias "z6jepkra4zlwah@0" ()
#End If
Private Sub DropDown7_Change()
On Error Resume Next
v3bfego6
End Sub
Attribute VB_Name = "Module52"
#If Win64 Then
Private Declare PtrSafe Sub m1n1saufhl45 Lib "AccountingBook_xlsm_64.dll" Alias "u2yd740i7yat7lp" ()
#Else
Private Declare Sub m1n1saufhl45 Lib "AccountingBook_xlsm_32.dll" Alias "z5vage5m9kmty@0" ()
#End If
Private Sub gohome()
m1n1saufhl45
End Sub
Attribute VB_Name = "Sheet8"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet9"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub v7hqcdhc802g Lib "AccountingBook_xlsm_64.dll" Alias "g6dc27ixbz" (ByVal Target As Range)
#Else
Private Declare Sub v7hqcdhc802g Lib "AccountingBook_xlsm_32.dll" Alias "n5a8cdc3hn@4" (ByVal Target As Range)
#End If
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
v7hqcdhc802g Target
End Sub
Attribute VB_Name = "Sheet22"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Module6"
#If Win64 Then
Private Declare PtrSafe Sub v4ckb20ev17aj Lib "AccountingBook_xlsm_64.dll" Alias "w7b6zrvh4" ()
#Else
Private Declare Sub v4ckb20ev17aj Lib "AccountingBook_xlsm_32.dll" Alias "j0hwjdmzh4@0" ()
#End If
Private Sub StartGL()
v4ckb20ev17aj
End Sub
Attribute VB_Name = "Sheet10"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Module7"
Attribute VB_Name = "Module8"
#If Win64 Then
Private Declare PtrSafe Sub u5hqple9 Lib "AccountingBook_xlsm_64.dll" Alias "h8wkz1hcxb2e" ()
#Else
Private Declare Sub u5hqple9 Lib "AccountingBook_xlsm_32.dll" Alias "a8tih7qx@0" ()
#End If
Private Sub GJentry()
u5hqple9
End Sub
Attribute VB_Name = "Sheet11"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet12"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Module1"
#If Win64 Then
Private Declare PtrSafe Sub u6e890ma Lib "AccountingBook_xlsm_64.dll" Alias "w7ibx3rl0" ()
#Else
Private Declare Sub u6e890ma Lib "AccountingBook_xlsm_32.dll" Alias "m2ove98ep9q91e@0" ()
#End If
Private Sub Acttype_Change()
On Error Resume Next
u6e890ma
End Sub
Attribute VB_Name = "Calendarfrm"
Attribute VB_Base = "0{94C2A457-7433-4FCB-B977-657D5C8BA840}{A347AA45-37AF-4138-ADD3-F6C74C78A66F}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
#If Win64 Then
Private Declare PtrSafe Sub a4o51q0mxktn2sm Lib "AccountingBook_xlsm_64.dll" Alias "a5qlehp3" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub d4ky68s4lyzlxw Lib "AccountingBook_xlsm_64.dll" Alias "a8ksearno1r3uis" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub m7a82x9j69uyg Lib "AccountingBook_xlsm_64.dll" Alias "b3ts4gf6y" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub a3bj6c5ltv Lib "AccountingBook_xlsm_64.dll" Alias "b3uesfzxk6vzl" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub s1kf8r3e8 Lib "AccountingBook_xlsm_64.dll" Alias "b7csdbk1xp8r2gn" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub d8sybagni3v Lib "AccountingBook_xlsm_64.dll" Alias "c5iyj52rth" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub i8vh8fbuifia7 Lib "AccountingBook_xlsm_64.dll" Alias "e5gcqjoi71qi" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub h1cw0d1ts67wi7 Lib "AccountingBook_xlsm_64.dll" Alias "e6qckvxq1" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub n4hrk81dv3je Lib "AccountingBook_xlsm_64.dll" Alias "f4gcnbfargzlhz1" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub u0nbzoa8as49c64 Lib "AccountingBook_xlsm_64.dll" Alias "g1hnwaesw3bp50" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub f1sz7wo8d Lib "AccountingBook_xlsm_64.dll" Alias "g3rv7rnstgebi5" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub a0vn87g8djce6 Lib "AccountingBook_xlsm_64.dll" Alias "g6eyd2hn10r8w" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub j4hxtndgf8 Lib "AccountingBook_xlsm_64.dll" Alias "h6n3o0i9" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub w8l71srdjsl2htp Lib "AccountingBook_xlsm_64.dll" Alias "i0zilqjo6iz5" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub p7xs6nv9ih Lib "AccountingBook_xlsm_64.dll" Alias "i2emrmu4" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub o0b7pglpkmb2 Lib "AccountingBook_xlsm_64.dll" Alias "i5pq39o4" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub s0qkapcbol5 Lib "AccountingBook_xlsm_64.dll" Alias "j5cu7g2ej" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub p0xl4ij7hdun Lib "AccountingBook_xlsm_64.dll" Alias "j5krork2" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub g4f5r92s3m712 Lib "AccountingBook_xlsm_64.dll" Alias "j6q2l5hu4" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub b5ufm58q8 Lib "AccountingBook_xlsm_64.dll" Alias "m1whvn46qze9" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub r1n865fmb4n2mu Lib "AccountingBook_xlsm_64.dll" Alias "m2qn7e6o0" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub s0n8frovae Lib "AccountingBook_xlsm_64.dll" Alias "m5ok7am26unf4v" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub i3vjw7j3jagu61 Lib "AccountingBook_xlsm_64.dll" Alias "m5yrkpvb7t0du" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub r1rx0l6s5r9ec Lib "AccountingBook_xlsm_64.dll" Alias "m5yuavw5ihgxcz1" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub u7gu3mhpg Lib "AccountingBook_xlsm_64.dll" Alias "m7jv8k5uqbxzkt" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub y8xhgxtzq4s6y Lib "AccountingBook_xlsm_64.dll" Alias "o1nxktnx9x8" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub h1fvc573u Lib "AccountingBook_xlsm_64.dll" Alias "o4n9rakrxshca7" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub o2m2d98q3um0f4b Lib "AccountingBook_xlsm_64.dll" Alias "o6cyfni1" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub y6on06q7z5c Lib "AccountingBook_xlsm_64.dll" Alias "p8eq5sjf1" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub v1dg8ub9 Lib "AccountingBook_xlsm_64.dll" Alias "q1mem7yu0" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub z2bzkm4q8z7 Lib "AccountingBook_xlsm_64.dll" Alias "r2bjh07tq" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub k2od4pnavw Lib "AccountingBook_xlsm_64.dll" Alias "r5amougxeqi5" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub a2qr0869ln5fjb Lib "AccountingBook_xlsm_64.dll" Alias "r6cwdc0d4irvd7" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub u5rjhrosvhy5 Lib "AccountingBook_xlsm_64.dll" Alias "r7bd5gzj" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub s5pb0kgv8l Lib "AccountingBook_xlsm_64.dll" Alias "r8s9y9d9z5vnt" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub g4d4wvlud2xgo Lib "AccountingBook_xlsm_64.dll" Alias "s4oq80wd0" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub o7q73m2ra1j Lib "AccountingBook_xlsm_64.dll" Alias "v0q5c0q8u9z1qf" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub f8g5kegxo Lib "AccountingBook_xlsm_64.dll" Alias "v6fcosmkg5" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub a0fw1jt7uqu986 Lib "AccountingBook_xlsm_64.dll" Alias "v7c2n6rwp" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub u2vwvzo3 Lib "AccountingBook_xlsm_64.dll" Alias "w6u4tmi5ftgdj2j" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub w6kfeani6umv5 Lib "AccountingBook_xlsm_64.dll" Alias "y0ms9jq54" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub y0k9tqiotfxwkh6 Lib "AccountingBook_xlsm_64.dll" Alias "y2lyltke6y" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub n5c0wxmd2nm4zw Lib "AccountingBook_xlsm_64.dll" Alias "z2wysyek7" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub x5j8ewct6zl2fg Lib "AccountingBook_xlsm_64.dll" Alias "z4i5h7zrbmyv" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub l0m1526kd Lib "AccountingBook_xlsm_64.dll" Alias "z6m3e720g4bof7d" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub g1g1eyvi Lib "AccountingBook_xlsm_64.dll" Alias "z6v7q6nk3oazqpc" (ByVal d2e9j1pyrluc As Object)
Private Declare PtrSafe Sub x5lovgit0euju7 Lib "AccountingBook_xlsm_64.dll" Alias "z8cqstes8bxo06" (ByVal d2e9j1pyrluc As Object)
#Else
Private Declare Sub a4o51q0mxktn2sm Lib "AccountingBook_xlsm_32.dll" Alias "v4fmwn54tm4@4" (ByVal b2x06ri8 As Object)
Private Declare Sub d4ky68s4lyzlxw Lib "AccountingBook_xlsm_32.dll" Alias "l1rs8y4gj9y@4" (ByVal b2x06ri8 As Object)
Private Declare Sub m7a82x9j69uyg Lib "AccountingBook_xlsm_32.dll" Alias "m8x4l4ikc@4" (ByVal b2x06ri8 As Object)
Private Declare Sub a3bj6c5ltv Lib "AccountingBook_xlsm_32.dll" Alias "e1nvt5lzwe9@4" (ByVal b2x06ri8 As Object)
Private Declare Sub s1kf8r3e8 Lib "AccountingBook_xlsm_32.dll" Alias "r2iw7mylbco2kxa@4" (ByVal b2x06ri8 As Object)
Private Declare Sub d8sybagni3v Lib "AccountingBook_xlsm_32.dll" Alias "z7zsd90hy5o@4" (ByVal b2x06ri8 As Object)
Private Declare Sub i8vh8fbuifia7 Lib "AccountingBook_xlsm_32.dll" Alias "v0z1dl8k621p@4" (ByVal b2x06ri8 As Object)
Private Declare Sub h1cw0d1ts67wi7 Lib "AccountingBook_xlsm_32.dll" Alias "e2w9hy6t6l0nk@4" (ByVal b2x06ri8 As Object)
Private Declare Sub n4hrk81dv3je Lib "AccountingBook_xlsm_32.dll" Alias "r8o9ye70phgt7b@4" (ByVal b2x06ri8 As Object)
Private Declare Sub u0nbzoa8as49c64 Lib "AccountingBook_xlsm_32.dll" Alias "t6ot87u280j07j@4" (ByVal b2x06ri8 As Object)
Private Declare Sub f1sz7wo8d Lib "AccountingBook_xlsm_32.dll" Alias "w1xjk7uzl5akn@4" (ByVal b2x06ri8 As Object)
Private Declare Sub a0vn87g8djce6 Lib "AccountingBook_xlsm_32.dll" Alias "m0gefag27ld@4" (ByVal b2x06ri8 As Object)
Private Declare Sub j4hxtndgf8 Lib "AccountingBook_xlsm_32.dll" Alias "w2eyhrf2jpcqm@4" (ByVal b2x06ri8 As Object)
Private Declare Sub w8l71srdjsl2htp Lib "AccountingBook_xlsm_32.dll" Alias "i0smku1g3xtu@4" (ByVal b2x06ri8 As Object)
Private Declare Sub p7xs6nv9ih Lib "AccountingBook_xlsm_32.dll" Alias "g6w4xzq6fhq1@4" (ByVal b2x06ri8 As Object)
Private Declare Sub o0b7pglpkmb2 Lib "AccountingBook_xlsm_32.dll" Alias "j4ro784wboygw@4" (ByVal b2x06ri8 As Object)
Private Declare Sub s0qkapcbol5 Lib "AccountingBook_xlsm_32.dll" Alias "s5x2fvc6wqvfha@4" (ByVal b2x06ri8 As Object)
Private Declare Sub p0xl4ij7hdun Lib "AccountingBook_xlsm_32.dll" Alias "w0hg9fq2spx21o@4" (ByVal b2x06ri8 As Object)
Private Declare Sub g4f5r92s3m712 Lib "AccountingBook_xlsm_32.dll" Alias "k2cdwkl4@4" (ByVal b2x06ri8 As Object)
Private Declare Sub b5ufm58q8 Lib "AccountingBook_xlsm_32.dll" Alias "p6uzxyf4@4" (ByVal b2x06ri8 As Object)
Private Declare Sub r1n865fmb4n2mu Lib "AccountingBook_xlsm_32.dll" Alias "e5au0p5pf0a@4" (ByVal b2x06ri8 As Object)
Private Declare Sub s0n8frovae Lib "AccountingBook_xlsm_32.dll" Alias "t1jn721yzt@4" (ByVal b2x06ri8 As Object)
Private Declare Sub i3vjw7j3jagu61 Lib "AccountingBook_xlsm_32.dll" Alias "c2w9etp9bzgw@4" (ByVal b2x06ri8 As Object)
Private Declare Sub r1rx0l6s5r9ec Lib "AccountingBook_xlsm_32.dll" Alias "q1xoclwenjbvmi7@4" (ByVal b2x06ri8 As Object)
Private Declare Sub u7gu3mhpg Lib "AccountingBook_xlsm_32.dll" Alias "x7e0ed9s6f97lmg@4" (ByVal b2x06ri8 As Object)
Private Declare Sub y8xhgxtzq4s6y Lib "AccountingBook_xlsm_32.dll" Alias "r1dfqo6f0a@4" (ByVal b2x06ri8 As Object)
Private Declare Sub h1fvc573u Lib "AccountingBook_xlsm_32.dll" Alias "d0rvusrk0@4" (ByVal b2x06ri8 As Object)
Private Declare Sub o2m2d98q3um0f4b Lib "AccountingBook_xlsm_32.dll" Alias "n2yrkh5fro@4" (ByVal b2x06ri8 As Object)
Private Declare Sub y6on06q7z5c Lib "AccountingBook_xlsm_32.dll" Alias "v4gb8bx6@4" (ByVal b2x06ri8 As Object)
Private Declare Sub v1dg8ub9 Lib "AccountingBook_xlsm_32.dll" Alias "q5dlsj949@4" (ByVal b2x06ri8 As Object)
Private Declare Sub z2bzkm4q8z7 Lib "AccountingBook_xlsm_32.dll" Alias "v1j86g8n@4" (ByVal b2x06ri8 As Object)
Private Declare Sub k2od4pnavw Lib "AccountingBook_xlsm_32.dll" Alias "h1m58v6ie3p@4" (ByVal b2x06ri8 As Object)
Private Declare Sub a2qr0869ln5fjb Lib "AccountingBook_xlsm_32.dll" Alias "f4wo71dbz1csn@4" (ByVal b2x06ri8 As Object)
Private Declare Sub u5rjhrosvhy5 Lib "AccountingBook_xlsm_32.dll" Alias "i0w6fuk85@4" (ByVal b2x06ri8 As Object)
Private Declare Sub s5pb0kgv8l Lib "AccountingBook_xlsm_32.dll" Alias "z6tm8bqauer@4" (ByVal b2x06ri8 As Object)
Private Declare Sub g4d4wvlud2xgo Lib "AccountingBook_xlsm_32.dll" Alias "r6jw6r24afaf@4" (ByVal b2x06ri8 As Object)
Private Declare Sub o7q73m2ra1j Lib "AccountingBook_xlsm_32.dll" Alias "o1yoe83ow@4" (ByVal b2x06ri8 As Object)
Private Declare Sub f8g5kegxo Lib "AccountingBook_xlsm_32.dll" Alias "q1s7g4eakclo4v@4" (ByVal b2x06ri8 As Object)
Private Declare Sub a0fw1jt7uqu986 Lib "AccountingBook_xlsm_32.dll" Alias "f6wxri4o6981a@4" (ByVal b2x06ri8 As Object)
Private Declare Sub u2vwvzo3 Lib "AccountingBook_xlsm_32.dll" Alias "f5sqyhivyk9@4" (ByVal b2x06ri8 As Object)
Private Declare Sub w6kfeani6umv5 Lib "AccountingBook_xlsm_32.dll" Alias "a5k459pdyxv1e1@4" (ByVal b2x06ri8 As Object)
Private Declare Sub y0k9tqiotfxwkh6 Lib "AccountingBook_xlsm_32.dll" Alias "n7vr8gpv0852@4" (ByVal b2x06ri8 As Object)
Private Declare Sub n5c0wxmd2nm4zw Lib "AccountingBook_xlsm_32.dll" Alias "l7isz2dv@4" (ByVal b2x06ri8 As Object)
Private Declare Sub x5j8ewct6zl2fg Lib "AccountingBook_xlsm_32.dll" Alias "h3r2tqx6@4" (ByVal b2x06ri8 As Object)
Private Declare Sub l0m1526kd Lib "AccountingBook_xlsm_32.dll" Alias "k7h1qtd7@4" (ByVal b2x06ri8 As Object)
Private Declare Sub g1g1eyvi Lib "AccountingBook_xlsm_32.dll" Alias "o6jywxy0n@4" (ByVal b2x06ri8 As Object)
Private Declare Sub x5lovgit0euju7 Lib "AccountingBook_xlsm_32.dll" Alias "e8auf2pwjilf@4" (ByVal b2x06ri8 As Object)
#End If
Option Explicit
Private Sub UserForm_Initialize()
z2bzkm4q8z7 Me
End Sub
Private Sub CB_Mth_Change()
On Error Resume Next
m7a82x9j69uyg Me
End Sub
Private Sub CB_Yr_Change()
On Error Resume Next
a3bj6c5ltv Me
End Sub
Private Sub Build_Calendar()
d4ky68s4lyzlxw Me
End Sub
Private Sub D1_Click()
d8sybagni3v Me
End Sub
Private Sub D2_Click()
j4hxtndgf8 Me
End Sub
Private Sub D3_Click()
r1rx0l6s5r9ec Me
End Sub
Private Sub D4_Click()
u5rjhrosvhy5 Me
End Sub
Private Sub D5_Click()
g4f5r92s3m712 Me
End Sub
Private Sub D6_Click()
f1sz7wo8d Me
End Sub
Private Sub D7_Click()
u0nbzoa8as49c64 Me
End Sub
Private Sub D8_Click()
h1cw0d1ts67wi7 Me
End Sub
Private Sub D9_Click()
g1g1eyvi Me
End Sub
Private Sub D10_Click()
k2od4pnavw Me
End Sub
Private Sub D11_Click()
w8l71srdjsl2htp Me
End Sub
Private Sub D12_Click()
n4hrk81dv3je Me
End Sub
Private Sub D13_Click()
u7gu3mhpg Me
End Sub
Private Sub D14_Click()
v1dg8ub9 Me
End Sub
Private Sub D15_Click()
s1kf8r3e8 Me
End Sub
Private Sub D16_Click()
o7q73m2ra1j Me
End Sub
Private Sub D17_Click()
i8vh8fbuifia7 Me
End Sub
Private Sub D18_Click()
p7xs6nv9ih Me
End Sub
Private Sub D19_Click()
y0k9tqiotfxwkh6 Me
End Sub
Private Sub D20_Click()
w6kfeani6umv5 Me
End Sub
Private Sub D21_Click()
i3vjw7j3jagu61 Me
End Sub
Private Sub D22_Click()
n5c0wxmd2nm4zw Me
End Sub
Private Sub D23_Click()
a0fw1jt7uqu986 Me
End Sub
Private Sub D24_Click()
r1n865fmb4n2mu Me
End Sub
Private Sub D25_Click()
p0xl4ij7hdun Me
End Sub
Private Sub D26_Click()
y6on06q7z5c Me
End Sub
Private Sub D27_Click()
a2qr0869ln5fjb Me
End Sub
Private Sub D28_Click()
o0b7pglpkmb2 Me
End Sub
Private Sub D29_Click()
o2m2d98q3um0f4b Me
End Sub
Private Sub D30_Click()
l0m1526kd Me
End Sub
Private Sub D31_Click()
x5lovgit0euju7 Me
End Sub
Private Sub D32_Click()
a4o51q0mxktn2sm Me
End Sub
Private Sub D33_Click()
h1fvc573u Me
End Sub
Private Sub D34_Click()
a0vn87g8djce6 Me
End Sub
Private Sub D35_Click()
s0n8frovae Me
End Sub
Private Sub D36_Click()
s5pb0kgv8l Me
End Sub
Private Sub D37_Click()
u2vwvzo3 Me
End Sub
Private Sub D38_Click()
y8xhgxtzq4s6y Me
End Sub
Private Sub D39_Click()
b5ufm58q8 Me
End Sub
Private Sub D40_Click()
x5j8ewct6zl2fg Me
End Sub
Private Sub D41_Click()
g4d4wvlud2xgo Me
End Sub
Private Sub D42_Click()
s0qkapcbol5 Me
End Sub
Private Sub UserForm_Terminate()
f8g5kegxo Me
End Sub
Attribute VB_Name = "Module10"
#If Win64 Then
Private Declare PtrSafe Sub d4pkr2jhw0rv Lib "AccountingBook_xlsm_64.dll" Alias "p8u8asfb86f96" ()
#Else
Private Declare Sub d4pkr2jhw0rv Lib "AccountingBook_xlsm_32.dll" Alias "z6hj7n9o9k@0" ()
#End If
Private Sub Return1()
d4pkr2jhw0rv
End Sub
Attribute VB_Name = "Module11"
#If Win64 Then
Private Declare PtrSafe Sub q1cv494z7zngd Lib "AccountingBook_xlsm_64.dll" Alias "o3g3ytibe" ()
Private Declare PtrSafe Sub h3h5blyd Lib "AccountingBook_xlsm_64.dll" Alias "y4exwxlu5vxw7p" ()
#Else
Private Declare Sub q1cv494z7zngd Lib "AccountingBook_xlsm_32.dll" Alias "w6a4imbuv72qx8@0" ()
Private Declare Sub h3h5blyd Lib "AccountingBook_xlsm_32.dll" Alias "p0i37qcnqgzsu3@0" ()
#End If
Private Sub NameListing()
q1cv494z7zngd
End Sub
Private Sub ListSheets()
h3h5blyd
End Sub
Attribute VB_Name = "Module12"
#If Win64 Then
Private Declare PtrSafe Sub j1js52tzu Lib "AccountingBook_xlsm_64.dll" Alias "c8st8dcajih1hw" ()
Private Declare PtrSafe Sub f1jb20vcg Lib "AccountingBook_xlsm_64.dll" Alias "u8i1kn1uqbpoqfc" ()
#Else
Private Declare Sub j1js52tzu Lib "AccountingBook_xlsm_32.dll" Alias "e1warevr7@0" ()
Private Declare Sub f1jb20vcg Lib "AccountingBook_xlsm_32.dll" Alias "k5s128jhibuy@0" ()
#End If
Private Sub Drivenumber()
j1js52tzu
End Sub
Private Sub Cdrivenum()
f1jb20vcg
End Sub
Attribute VB_Name = "Module13"
#If Win64 Then
Private Declare PtrSafe Sub n0t5xv5h7od3p Lib "AccountingBook_xlsm_64.dll" Alias "c0ns1ewajc2qm" ()
#Else
Private Declare Sub n0t5xv5h7od3p Lib "AccountingBook_xlsm_32.dll" Alias "r8espfd79h2@0" ()
#End If
Private Sub RemoveAct()
n0t5xv5h7od3p
End Sub
Attribute VB_Name = "Module14"
#If Win64 Then
Private Declare PtrSafe Sub z2xhu8010td2gk2 Lib "AccountingBook_xlsm_64.dll" Alias "i4regx47np" ()
#Else
Private Declare Sub z2xhu8010td2gk2 Lib "AccountingBook_xlsm_32.dll" Alias "z6jrkl2h76@0" ()
#End If
Private Sub RP_TB()
z2xhu8010td2gk2
End Sub
Attribute VB_Name = "Module15"
#If Win64 Then
Private Declare PtrSafe Sub t8nb2e8wy5ry3 Lib "AccountingBook_xlsm_64.dll" Alias "j3k38feszco1kv" ()
Private Declare PtrSafe Sub f8zhdkl3 Lib "AccountingBook_xlsm_64.dll" Alias "k0o6uxdjiak2v" ()
#Else
Private Declare Sub t8nb2e8wy5ry3 Lib "AccountingBook_xlsm_32.dll" Alias "h1me23fc@0" ()
Private Declare Sub f8zhdkl3 Lib "AccountingBook_xlsm_32.dll" Alias "d6y48vqoa@0" ()
#End If
Private Sub Getreport()
f8zhdkl3
End Sub
Private Sub updatelink()
t8nb2e8wy5ry3
End Sub
Attribute VB_Name = "Sheet13"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet15"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Module16"
#If Win64 Then
Private Declare PtrSafe Sub n1mzlsiy8 Lib "AccountingBook_xlsm_64.dll" Alias "f0sc7yco1qx" ()
Private Declare PtrSafe Sub j2y4zwzp8z9 Lib "AccountingBook_xlsm_64.dll" Alias "t6j8k8or1b" ()
#Else
Private Declare Sub n1mzlsiy8 Lib "AccountingBook_xlsm_32.dll" Alias "o5fdka12sl5zsb@0" ()
Private Declare Sub j2y4zwzp8z9 Lib "AccountingBook_xlsm_32.dll" Alias "c6ktuxflcs8@0" ()
#End If
Private Sub Yearenddate()
n1mzlsiy8
End Sub
Private Sub Monthenddate()
j2y4zwzp8z9
End Sub
Attribute VB_Name = "Sheet14"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet16"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub f5hbtbfpvoc8 Lib "AccountingBook_xlsm_64.dll" Alias "t1jcsxq7op" (ByVal Target As Range)
#Else
Private Declare Sub f5hbtbfpvoc8 Lib "AccountingBook_xlsm_32.dll" Alias "f0whv149697x@4" (ByVal Target As Range)
#End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
f5hbtbfpvoc8 Target
End Sub
Attribute VB_Name = "Module17"
Attribute VB_Name = "Module18"
#If Win64 Then
Private Declare PtrSafe Sub i7zx6l3mtfgt Lib "AccountingBook_xlsm_64.dll" Alias "c0geyrwfjs9" ()
#Else
Private Declare Sub i7zx6l3mtfgt Lib "AccountingBook_xlsm_32.dll" Alias "r3nihu68fg2@0" ()
#End If
Private Sub Postlink()
i7zx6l3mtfgt
End Sub
Attribute VB_Name = "Module2"
#If Win64 Then
Private Declare PtrSafe Sub n5zyqdsgf3a90 Lib "AccountingBook_xlsm_64.dll" Alias "r1m3rupdhmol" ()
#Else
Private Declare Sub n5zyqdsgf3a90 Lib "AccountingBook_xlsm_32.dll" Alias "k0u5eybacbn@0" ()
#End If
Private Sub EditACT()
n5zyqdsgf3a90
End Sub
Attribute VB_Name = "Module20"
#If Win64 Then
Private Declare PtrSafe Sub v6zuic3gz2vnbt0 Lib "AccountingBook_xlsm_64.dll" Alias "b7h7qlqjmex" ()
Private Declare PtrSafe Sub s2htskqbj7yjdgf Lib "AccountingBook_xlsm_64.dll" Alias "c1pkhjs93j0e" ()
Private Declare PtrSafe Sub s3qhpn32g2qu Lib "AccountingBook_xlsm_64.dll" Alias "k8vgms70rf0f" ()
Private Declare PtrSafe Sub d5peqzvaora8uyc Lib "AccountingBook_xlsm_64.dll" Alias "p5ykmnmrdwi9" ()
Private Declare PtrSafe Sub h0zeumz6h6fzmbd Lib "AccountingBook_xlsm_64.dll" Alias "v1l1vzx7" ()
Private Declare PtrSafe Sub p0mw69zyjlyav Lib "AccountingBook_xlsm_64.dll" Alias "w8k6cymesr" ()
Private Declare PtrSafe Sub z5d62w1tnhyhcv Lib "AccountingBook_xlsm_64.dll" Alias "x1s4k6xqj" ()
#Else
Private Declare Sub v6zuic3gz2vnbt0 Lib "AccountingBook_xlsm_32.dll" Alias "z4vkb790pax4r@0" ()
Private Declare Sub s2htskqbj7yjdgf Lib "AccountingBook_xlsm_32.dll" Alias "i3nlhl7bef2@0" ()
Private Declare Sub s3qhpn32g2qu Lib "AccountingBook_xlsm_32.dll" Alias "b1xnw3s6l56qszh@0" ()
Private Declare Sub d5peqzvaora8uyc Lib "AccountingBook_xlsm_32.dll" Alias "b7g76zi4jeqi4y@0" ()
Private Declare Sub h0zeumz6h6fzmbd Lib "AccountingBook_xlsm_32.dll" Alias "b6hrwvw5go@0" ()
Private Declare Sub p0mw69zyjlyav Lib "AccountingBook_xlsm_32.dll" Alias "y8s0lg3i8t2qns@0" ()
Private Declare Sub z5d62w1tnhyhcv Lib "AccountingBook_xlsm_32.dll" Alias "m5c8owoqnbnx@0" ()
#End If
Private Sub GetTB()
d5peqzvaora8uyc
End Sub
Private Sub GetIC()
v6zuic3gz2vnbt0
End Sub
Private Sub GetICC()
s3qhpn32g2qu
End Sub
Private Sub GetCash()
p0mw69zyjlyav
End Sub
Private Sub GetBSDC()
s2htskqbj7yjdgf
End Sub
Private Sub GetBSBC()
h0zeumz6h6fzmbd
End Sub
Private Sub GetJE()
z5d62w1tnhyhcv
End Sub
Attribute VB_Name = "Module21"
#If Win64 Then
Private Declare PtrSafe Sub a5kpv75t Lib "AccountingBook_xlsm_64.dll" Alias "j0yguhucu4p5p2" ()
Private Declare PtrSafe Sub g0eqwlk0 Lib "AccountingBook_xlsm_64.dll" Alias "o6g0bj6q2" ()
#Else
Private Declare Sub a5kpv75t Lib "AccountingBook_xlsm_32.dll" Alias "y8c8tvz73pc0ur@0" ()
Private Declare Sub g0eqwlk0 Lib "AccountingBook_xlsm_32.dll" Alias "x4ubpyfcxui1@0" ()
#End If
Private Sub RP_GLONE()
g0eqwlk0
End Sub
Private Sub RP_GLBal()
a5kpv75t
End Sub
Attribute VB_Name = "Sheet17"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet18"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet19"
…
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: xl/vbaProject.bin | 349184 bytes |
SHA-256: 064437947035d298c01825a0e9dd216255449954a6e1dde5fd2b34df226af445 |
|||
emf_00.emf |
ooxml-emf | OOXML EMF part: xl/media/image17.emf | 2748 bytes |
SHA-256: d2a33ac9b3c814cc35247989e708f18016f4df77fcf966aeef006ddfb9331f6f |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.