Malicious Office (OOXML) / .XLSX — malware analysis report

Static analysis result for SHA-256 5bff66f0f299be43…

MALICIOUS

Office (OOXML) / .XLSX

378.1 KB Created: 2014-05-15 21:37:30 UTC Authoring application: Microsoft Excel 16.0300 First seen: 2026-05-28
MD5: ef8bdfda4fc53c580e35b5bce621a823 SHA-1: 58507a2b0967cf100264facc77496b22ce51eaea SHA-256: 5bff66f0f299be4365dd4afa244ae1a7432c87db04ebcabdd5b8cf166346113d
120 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment

The critical heuristic 'OLE_VBA_EMAIL_WORM_SELF_REPLICATION' indicates that the VBA macros within this Excel file are designed to self-replicate by sending the file as an attachment to emails via Outlook. This suggests a worm-like behavior intended for mass distribution. The 'CreateObject' call heuristic further supports the execution of programmatic actions.

Heuristics 3

  • VBA project inside OOXML medium 2 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • VBA email-worm self-replication (Outlook mass-mailer) critical OLE_VBA_EMAIL_WORM_SELF_REPLICATION
    VBA macro drives Outlook to mass-mail itself: it automates Outlook.Application, programmatically creates a mail item, and spreads by attaches a file to the outgoing message, sends the message programmatically. Harvesting recipients from the address book / inbox and auto-attaching the carrier to outgoing messages is the defining behavior of the Melissa / LoveLetter / W97M mass-mailer worm lineage — there is no benign document use, independent of any AV signature.
    Matched line in script
        Set OutMail = OutApp.CreateItem(0)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set OutApp = CreateObject("Outlook.Application")

Extracted artifacts 2

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source from OOXML) 119791 bytes
SHA-256: 14db5a4a1472fdef32ac7120133645d7f97851417e3fd27ed86c4b392bdcbf7b
Preview script
First 1,000 lines of the extracted script
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 = "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


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 = "Module1"
Sub Button29_Click()
Attribute Button29_Click.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Button29_Click Macro
'

'

    Range("W12:X13").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Sub Macro3()
Attribute Macro3.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Macro3 Macro
'

'
    Range("W12:X13").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub
Sub Button31_Click()
Attribute Button31_Click.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Button31_Click Macro
'

'
    Range("W12:X13").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

Attribute VB_Name = "Module2"

Sub Row1B1Q()
Attribute Row1B1Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B1Q Macro
'

'
    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("G6:H9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row1Bin1Off()
Attribute Row1Bin1Off.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1Bin1Off Macro
'

'
    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("G6:H9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1Bin2Offline()
Attribute Row1Bin2Offline.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1Bin2Offline Macro
'

'
    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("I6:J9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B2Q()
Attribute Row1B2Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B2Q Macro
'

'
    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("I6:J9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B9Off()
Attribute Row1B9Off.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B9Off Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("W6:X9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub



Sub Row1B9Q()
Attribute Row1B9Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B9Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("W6:X9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B3O()
Attribute Row1B3O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B3O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("K6:L9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B3Q()
Attribute Row1B3Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B3Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("K6:L9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B4O()
Attribute Row1B4O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B4O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("M6:N9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B4Q()
Attribute Row1B4Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B4Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("M6:N9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B5O()
Attribute Row1B5O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B5O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("O6:P9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
     For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B5Q()
Attribute Row1B5Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B5Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh
    
    Range("O6:P9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B6O()
Attribute Row1B6O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B6O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("Q6:R9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B6Q()
Attribute Row1B6Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B6Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("Q6:R9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B7O()
Attribute Row1B7O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B7O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("S6:T9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B7Q()
Attribute Row1B7Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B7Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("S6:T9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B8O()
Attribute Row1B8O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B8O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("U6:V9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B8Q()
Attribute Row1B8Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B8Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("U6:V9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B10O()
Attribute Row1B10O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B10O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("Y6:Z9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub
Sub Row1B10Q()
Attribute Row1B10Q.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row1B10Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("Y6:Z9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B1Q()
'
' Row1B1Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("G11:H14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B1O()
'
' Row1B10O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("G11:H14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B2Q()
'
' Row1B1Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("I11:J14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B2O()
'
' Row1B10O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("I11:J14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B3Q()
'
' Row1B1Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh
    
    Range("K11:L14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B3O()
'
' Row1B10O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("K11:L14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B4Q()
'
' Row1B1Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("M11:N14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B4O()
'
' Row1B10O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("M11:N14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B5Q()
'
' Row1B1Q Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("O11:P14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub

Sub Row2B5O()
'
' Row1B10O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh

    Range("O11:P14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
    
End Sub


Sub Row2B6O()
Attribute Row2B6O.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Row2B6O Macro
'

'

    Dim sh As Worksheet
    Dim yourPassword As String
    yourPassword = "processing"

    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
…
vbaProject_00.bin vba-project OOXML VBA project: xl/vbaProject.bin 239616 bytes
SHA-256: c6d20b11f29bbc83bf11f4c20b1a278e8917966b1c142435677822ab46c9c6a8

Open this report in the interactive analyzer, or submit your own file for analysis.