Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 5abc7cdcf52eef44…

MALICIOUS

Office (OOXML)

819.7 KB Created: 2019-01-01 22:33:06 UTC Authoring application: Excel Android 16.0300 First seen: 2021-04-25
MD5: 18a5cb0c8ddeeed130d0d691a5ddae16 SHA-1: db00883d4920cf22a05a575fdf31e7bb2681555d SHA-256: 5abc7cdcf52eef44cb2e1b45d53ad95a91f05e76cf381b2ebc33225359ce1901
66 Risk Score

Heuristics 6

  • VBA project inside OOXML medium 1 related finding OOXML_VBA
    Document contains a VBA project — VBA macros present
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private Sub Workbook_Open()
  • OOXML hyperlink points to URL shortener medium OOXML_URL_SHORTENER_HYPERLINK
    Document contains a clickable external hyperlink to a URL-shortener service. Shorteners are not inherently malicious, but they hide the final landing page from static review and are common in spam and phishing lures.
  • External hyperlinks (2) low OOXML_EXTERNAL_HYPERLINKS
    Document contains 2 external hyperlinks — clickable URLs are stored as external relationships. First target: https://goo.gl/yUbByX
  • Hidden worksheet (veryHidden) low OOXML_HIDDEN_SHEET
    Excel workbook contains 26 hidden sheet(s) — hidden sheets are commonly used to conceal macro code, staging data, or intermediate payload construction
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL https://drive.google.com/open?id=0B096GgIz4mnIV0gtZHFPR2xHc2s Document hyperlink
    • https://goo.gl/yUbByXDocument hyperlink
    • https://www.youtube.com/channel/UCh7cd9ak0BkoO41cvnq34xw/?sub_confirmation=1Document hyperlink

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) 180763 bytes
SHA-256: 6bc4b1f77f0726e576f663a800ada5b5c1278ffb2ab6f64cf609254c303f37a2
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "Feuil26"
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
Private Sub Worksheet_Activate()
Range("A1").Select
End Sub

Attribute VB_Name = "Feuil1"
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
Private Sub Worksheet_Activate()
Range("B1").Select
End Sub

Attribute VB_Name = "Feuil27"
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
Private Sub Worksheet_Activate()
    If Range("C4").Value <> ThisWorkbook.Sheets("Accueil").Range("D17").Value _
    And Range("C4").Value <> ThisWorkbook.Sheets("Accueil").Range("N17").Value _
    And Range("C4").Value <> Empty Then
        Application.ScreenUpdating = False
        Range("C4,C5:O74").ClearContents
        Rows("5:74").EntireRow.Hidden = False
        Columns("E:N").EntireColumn.Hidden = False
    End If
End Sub

Attribute VB_Name = "Feuil25"
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
Private Sub Worksheet_Activate()
Range("B1").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Attribute VB_Name = "Feuil5"
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 = "Feuil6"
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 = "Feuil7"
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 = "Feuil8"
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 = "Feuil9"
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 = "Feuil10"
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 = "Feuil4"
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 = "Feuil11"
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 = "Feuil12"
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 = "Feuil13"
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 = "Feuil19"
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 = "Feuil20"
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 = "Feuil21"
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 = "Feuil22"
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 = "Feuil23"
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 = "Feuil14"
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 = "Feuil15"
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 = "Feuil16"
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 = "Feuil17"
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 = "Feuil18"
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 = "Feuil29"
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 = "Feuil30"
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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    lllllIllll11IIIIIIIIIIIIlIl111111111111IIIIIIllll
End Sub
Private Sub Workbook_Open()
    llllIIllll1lIlIIIIIIIIIIIIl111111111111IIIIIIllll
End Sub

Attribute VB_Name = "Module1"


'----------------------------------- Codé par M. Abdellatif KOUHLANI ------------------------------------

'--------------------------------- anaspace@live.fr --- 06 34 55 91 59 ----------------------------------

'------------------------------------------ Molahadat V.2.1.1 -------------------------------------------

'-------------------------------------- Crypté via "CrypTif.xlsm" ---------------------------------------


Option Explicit
Option Base 0
Dim llllII1Il111ll111I1II1I1I1l111llI1III11lIII11lI1I1IIlllll111I11llllI111lI1IIllll As Range
Dim llllII1Il111l1I1l1I1111l1Ill1ll1lIl11IlI11I1I1ll11llIlIII11lII111IIlI11lI1IIllll As Double
Dim llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll As Workbook
Dim llllII1Il11IlIIlIIllllI1lI1I1IIIllII1I111lII11lIl11I1lll1IIIIIlI1IlIII1lI1IIllll As FileDialog
Dim llllII1Il1IlIl11I11I1l11Il1lIIlIII111I11l1lllII1llIIIlI1lIIl1111l1I1lI1lI1IIllll As String, llllII1Il1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIll1IIIIIlII1II1II1lI1IIllll As String
Dim llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll As String, llllII1Il1lll111I11llllI11IllIllII1ll1l11l1l11IlllII1l1II1lI1I1llIIlI11lI1IIllll As String
Dim llllII1Il1llIIll11lI1lIl1lIlllIlIlIII1lIII1llI1lI111IlllIlllIllIlllIl11lI1IIllll As String, llllII1Il1IlIll1Il111l11IIllIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I11lI1IIllll As String
Dim llllII1Il1I11lI1lIII1llll111I11llllI1Il1lI1llI1l11lIIl1l11I1llII1lIIII1lI1IIllll() As String, llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll() As String
Dim llllII1Il11I1l1lII1I1I1111lI111Il11IIll1IIIIIlII1II1III1Il1II1II11IIll1lI1IIllll As String, llllII1Il111l11l111l1IIl1ll1lIll11lI1lIl1lll11llIlIII1llII1l1I1lI111Il1lI1IIllll As String, llllII1Il1I11I1I1l1lII1I1I111lII111II11I1lllIIIIIlII1II1III1IllII1II111lI1IIllll As String
Dim llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll As String, llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll As String, llllII1Il1I1ll1II1II1IlIllI11I1I1l1lII1I1I111lII111II11I1lllIIIIIlII1I1lI1IIllll As String
Dim llllII1Il11I1II1lII111IlIll1I11I1l11IIllI1I1I1111I11lllIlI11llI1IlIllI1lI1IIllll As String, llllII1Il1lI1IllI1111IIIlII1111lIll11lI1llI1II1ll1I1IIlI11llI1IllI11Il1lI1IIllll As String, llllII1Il11ll1l1lI1III11l1llllIIlll1I1l11IIl11111IIIl1I1111l1ll11l11ll1lI1IIllll As String
Dim llllII1Il1IllIlIll1III11lIllllIIlllII1lI1IllI1111IIIlII1111lIIl11l11ll1lI1IIllll As String, llllII1Il11l1lII11lIl1l11lIl111I1IIIlIlI11IlIl11I11I1l11Il1lI1I1II111I1lI1IIllll As String, llllII1Il1l1I1lIlII1lII1IlI1lIIl1llll111I111ll1I1Il11I11lI1l1IlIIl1l111lI1IIllll As String, llllII1Il1I1ll1II1II11IIIl1llIlIlI1III11lIl11lI1l1lIIll1llll11111II1lI1lI1IIllll As String
Dim llllII1Il1llIIIIIlII1II1III1IllII1II11IIII1ll1l1lI1III11l1lllI11lll1I11lI1IIllll As String, llllII1Il11I1lIlllII1I1111ll111I1I1II1l1IIIIIlll1IlIIII1I1III1III1IIll1lI1IIllll As String, llllII1Il1I1l1ll1lIIII1lIIIl1IIlII1IlIIII1ll1l1lIIl1l1Ill1llIIlI11II1I1lI1IIllll As String, llllII1Il1l1I1111IIIlllI11IlIl1II1II1lI1Il1ll1I1IIlI1I11I1llllI1lllIIl1lI1IIllll As String
Dim llllII1Il1II11I1ll11lIlIlI1III1Il11l1lI111lIIll11lIl111I1II1lII111IlIl1lI1IIllll As Integer, llllII1Il1I1111lIIl11l11lI1l1IlII1I111l111llIlIIlI1lIlI11IIlII1IllllI11lI1IIllll As Integer, llllII1Il1l1IIIIIlll1IlIIII1Il1II1II11IIllIllIlIll1III11lIllllIIlllII11lI1IIllll As Integer, llllII1Il11lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1II1II11I1ll11l11lI1IIllll As Integer
Dim llllII1Il1lIIII1ll1II1II11IIllI1lI1IlI1III1I1I111lI111lII1lI1lll1III1I1lI1IIllll As Byte, llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll As Byte, llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll As Byte, llllII1Il111l1lllI11lll1I1l1lIII11111IIIl1I1111l1ll11l11ll111I1II1I1I11lI1IIllll As Byte
Dim llllII1Il1ll1I1llIIlI111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I1lI1IIllll As Byte, llllII1Il1I11llIIll11lIl11111II1lII111IlIll1Il111l11IIllIlIlI1l11Il1Il1lI1IIllll As Byte, llllII1Il11lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111lI1IIllll As Byte, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll As Byte
Dim llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll As Byte, llllII1Il11Il1l1l1I1I1I11l1I1Ill1ll1lIll1IlI1lI111lll1llIlIII11lII111I1lI1IIllll As Byte, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll As Byte, llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll As Byte
Dim llllII1Il11l111llIl111IllIllIIlI11II1I1I1lIlIlIl1II1I1lIII1ll11II1l1II1lI1IIllll As Byte, llllII1Il1I1l1IlIlIIII1lIIIl1IIllI1Illlll1llIllllllIlIIllIllIIll11II1I1lI1IIllll As Byte, llllII1Il11l1IIl1IIlI11IlIIII1ll1llIIIl1l1IlI1lIIIlI11I11I1I1l1lII1I1I1lI1IIllll As Byte, llllII1Il11l11IlllII1l1II1lI1I1llIIlI111lIIIIlll1llIIII1ll1II1II1IlIll1lI1IIllll As Byte
Dim llllII1Il1111lII111II11I1lllIIIIIlII1II1III1IllII1II11IIII1ll1l1lI1III1lI1IIllll As Byte, llllII1Il11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III11l1lllI11ll1lI1IIllll As Byte, llllII1Il111I11llllI1Il1lI1llI1l11lIIl1l11I1llII1lIIII1l1IIl1IIlI11IlI1lI1IIllll As Byte, llllII1Il11I1I111lI111lII1lI1lll1III1II11II1III1Ill1I11I1l11II1lI1l1I11lI1IIllll As Byte
Dim llllII1Il1I11II1III1Ill1I11I1l11II1lI1l1I111II11l1lllI11llI1IlI1lIIIl11lI1IIllll As Byte, llllII1Il1lIl1I11I1lllIlIlII1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II11lI1IIllll As Byte, llllII1Il1ll1ll1lIl11IlI11I1I1ll11llIlIII11lII111IIlI11Illllll1lI11lll1lI1IIllll As Byte, llllII1Il11l1llI11lIl1lI1ll1I1111IIIlllI11IlIl1IIlII1lI1Il1ll1I1IIlI1I1lI1IIllll As Byte
Dim llllII1Il1llll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1llI1l111lI1IIllll() As Byte, llllII1Il1lIIll11lIl111I1II1lII111IlIll1I11I1l11IIllI1I1I1111I11lllIlI1lI1IIllll() As Byte
Dim llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll As Byte, llllII1Il1IIlIllIIlll1l11l1l1lIlllII1l111llI111llI1l1l11IIIIIlll1llIII1lI1IIllll As Byte
Dim llllII1Il1III1ll1llIIIl1l1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIl1lI1IIllll As Boolean
Dim llllII1Il11II1lI1I1llI1l1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll() As Variant, llllII1Il1lIII1ll11II111IlllIllI1llIlIl1l11IlIIlI1IIllI1lI1IlIIIIlII1I1lI1IIllll() As Variant, llllII1Il11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1I1I111lI1111lI1IIllll() As Variant, llllII1Il1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII111IlIll1Il111l11II1lI1IIllll() As Variant
Sub lllllIllll1llIIIIIIIIIIIlIl111111111111IIIIIIllll()
Dim llllII1Il1l11IIl11111IIIl1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11II1lI1IIllll As Workbook
Dim llllII1Il1I1I1ll11llIlIII11lII111IIlI11Illllll1lI11llllI11IllIllIIlll11lI1IIllll As Byte
Dim llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll$
Dim llllII1Il1l1I1l1lIII11111IIIl1I1111l1Il11l11ll111I1II1I1I1l111llI1III11lI1IIllll As Byte
Dim llllII1Il11I1I111lI111lII1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I11lI1IIllll
On Error GoTo lllllIllllllIIIIIIIIIIIIlIl111111111111IIIIIIllll
lllllIllll1lIlIIIIIIIIIIIIl111111111111IIIIIlllll
llllII1Il1l1I1111IIIlllI11IlIl1II1II1lI1Il1ll1I1IIlI1I11I1llllI1lllIIl1lI1IIllll = ThisWorkbook.Sheets(Chr(65) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(50)).Range(Chr(65) & Chr(49) & Chr(57)).Value
[KA].Value = Chr(32) & Chr(80) & Chr(114) & Chr(111) & Chr(103) & Chr(114) & Chr(97) & Chr(109) & Chr(109) & Chr(233) & Chr(32) & Chr(112) & Chr(97) & Chr(114) & Chr(32) & Chr(58) & Chr(32) & Chr(32) & Chr(77) & Chr(46) & Chr(32) & Chr(75) & Chr(79) & Chr(85) & Chr(72) & Chr(76) & Chr(65) & Chr(78) & Chr(73) & Chr(32) & Chr(65) & Chr(98) & Chr(100) & Chr(101) & Chr(108) & Chr(108) & Chr(97) & Chr(116) & Chr(105) & Chr(102):  
llllII1Il11I1I111lI111lII1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I11lI1IIllll = Application.GetOpenFilename(Chr(70) & Chr(105) & Chr(99) & Chr(104) & Chr(105) & Chr(101) & Chr(114) & Chr(32) & Chr(69) & Chr(120) & Chr(99) & Chr(101) & Chr(108) & Chr(32) & Chr(40) & Chr(42) & Chr(46) & Chr(120) & Chr(108) & Chr(115) & Chr(120) & Chr(41) & Chr(44) & Chr(32), , _
llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll _
& Chr(32) & Chr(32) & Chr(58) & Chr(32) & Chr(32) & Chr(65) & Chr(116) & Chr(116) & Chr(101) & Chr(105) & Chr(110) & Chr(100) & Chr(114) & Chr(101) & Chr(32) & Chr(108) & Chr(101) & Chr(115) & Chr(32) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(105) & Chr(101) & Chr(114) & Chr(115) & Chr(32) & Chr(32) & Chr(34) & Chr(32) & Chr(77) & Chr(97) & Chr(115) & Chr(115) & Chr(97) & Chr(114) & Chr(32) & Chr(34) & Chr(32) & Chr(32) & Chr(99) & Chr(111) & Chr(110) & Chr(116) & Chr(101) & Chr(110) & Chr(97) & Chr(110) & Chr(116) & Chr(32) & Chr(108) & Chr(101) & Chr(115) & Chr(32) & Chr(110) & Chr(111) & Chr(116) & Chr(101) & Chr(115))
If llllII1Il11I1I111lI111lII1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I11lI1IIllll = False Then
MsgBox Chr(79) & Chr(111) & Chr(112) & Chr(115) & Chr(32) & Chr(33) & vbCrLf & vbCrLf & Chr(79) & Chr(112) & Chr(233) & Chr(114) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(97) & Chr(110) & Chr(110) & Chr(117) & Chr(108) & Chr(233) & Chr(101) & Chr(32) & Chr(46) & Chr(32) & Chr(46) & Chr(32) & Chr(46), , _
llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll
Exit Sub
End If
Application.ScreenUpdating = False
Set llllII1Il1l11IIl11111IIIl1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11II1lI1IIllll = Workbooks.Open(llllII1Il11I1I111lI111lII1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I11lI1IIllll)
llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll = llllII1Il1l11IIl11111IIIl1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11II1lI1IIllll.Name
If Sheets(1).Range(Chr(66) & Chr(49) & Chr(54)) <> Chr(73) & Chr(68) Then
llllII1Il1l11IIl11111IIIl1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11II1lI1IIllll.Close SaveChanges:=False
MsgBox Chr(108) & Chr(101) & Chr(32) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(105) & Chr(101) & Chr(114) & Chr(32) & Chr(113) & Chr(117) & Chr(101) & Chr(32) & Chr(118) & Chr(111) & Chr(117) & Chr(115) & Chr(32) & Chr(97) & Chr(118) & Chr(101) & Chr(122) & Chr(32) & Chr(99) & Chr(104) & Chr(111) & Chr(105) & Chr(115) & Chr(105) & Chr(32) & Chr(110) & Chr(39) & Chr(101) & Chr(115) & Chr(116) & Chr(32) & Chr(112) & Chr(97) & Chr(115) & Chr(32) & Chr(117) & Chr(110) & Chr(32) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(105) & Chr(101) & Chr(114) & Chr(32) & Chr(34) & Chr(77) & Chr(97) & Chr(115) & Chr(115) & Chr(97) & Chr(114) & Chr(34) & Chr(32) & Chr(58) & Chr(32) & Chr(32) & Chr(40) _
& llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll & Chr(41) & vbCrLf & vbCrLf & Chr(86) & Chr(101) & Chr(117) & Chr(105) & Chr(108) & Chr(108) & Chr(101) & Chr(122) & Chr(32) & Chr(114) & Chr(101) & Chr(115) & Chr(115) & Chr(97) & Chr(121) & Chr(101) & Chr(114) & Chr(32) & Chr(33), vbInformation, _
llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll
Range(Chr(66) & Chr(49)).Select
Exit Sub
End If
Sheets(1).Activate
llllII1Il1I1I1ll11llIlIII11lII111IIlI11Illllll1lI11llllI11IllIllIIlll11lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(66) & Chr(66) & Chr(49) & Chr(53)).End(xlToLeft).Column
llllII1Il1l1I1l1lIII11111IIIl1I1111l1Il11l11ll111I1II1I1I1l111llI1III11lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(67) & Chr(50) & Chr(48) & Chr(48)).End(xlUp).Row
llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(75) & Chr(53)).Value
llllII1Il1I1l1ll1lIIII1lIIIl1IIlII1IlIIII1ll1l1lIIl1l1Ill1llIIlI11II1I1lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(73) & Chr(57)).Value
llllII1Il1l1I1111IIIlllI11IlIl1II1II1lI1Il1ll1I1IIlI1I11I1llllI1lllIIl1lI1IIllll = Mid(llllII1Il1I1l1ll1lIIII1lIIIl1IIlII1IlIIII1ll1l1lIIl1l1Ill1llIIlI11II1I1lI1IIllll, InStr(1, llllII1Il1I1l1ll1lIIII1lIIIl1IIlII1IlIIII1ll1l1lIIl1l1Ill1llIIlI11II1I1lI1IIllll, Chr(45), vbTextCompare) - 1, 1) + llllII1Il1l1I1111IIIlllI11IlIl1II1II1lI1Il1ll1I1IIlI1I11I1llllI1lllIIl1lI1IIllll
For llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll = 1 To (llllII1Il1I1I1ll11llIlIII11lII111IIlI11Illllll1lI11llllI11IllIllIIlll11lI1IIllll - 7) / 2
ActiveWorkbook.Sheets(1).Range(Cells(18, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2)), _
Cells(llllII1Il1l1I1l1lIII11111IIIl1I1111l1Il11l11ll111I1II1I1I1l111llI1III11lI1IIllll, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2))).Copy
If ActiveWorkbook.Sheets(1).Cells(15, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2)).Value = Chr(35) & Chr(52) & Chr(35) Then
ThisWorkbook.Sheets(Chr(65) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(50)).Cells(18, 23).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
ThisWorkbook.Sheets(Chr(65) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(50)).Cells(18, 17 + llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll
ThisWorkbook.Sheets(Chr(65) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(50)).Calculate
If llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = Chr(35) & Chr(48) & Chr(48) & Chr(49) & Chr(50) & Chr(35) _
Or llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = Chr(35) & Chr(48) & Chr(48) & Chr(49) & Chr(51) & Chr(35) _
Or llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = Chr(35) & Chr(48) & Chr(48) & Chr(49) & Chr(52) & Chr(35) _
Or llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = Chr(35) & Chr(48) & Chr(48) & Chr(49) & Chr(53) & Chr(35) _
Or llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = Chr(35) & Chr(48) & Chr(48) & Chr(49) & Chr(54) & Chr(35) _
Or LCase(llllII1Il1l1I1111IIIlllI11IlIl1II1II1lI1Il1ll1I1IIlI1I11I1llllI1lllIIl1lI1IIllll) = Chr(99) & Chr(118) & Chr(114) & Chr(97) & Chr(105) _
Or LCase(llllII1Il1l1I1111IIIlllI11IlIl1II1II1lI1Il1ll1I1IIlI1I11I1llllI1lllIIl1lI1IIllll) = Chr(102) & Chr(118) & Chr(114) & Chr(97) & Chr(105) Then
ThisWorkbook.Sheets(Chr(65) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(50)).Range(Chr(70) & Chr(114) & Chr(97) & Chr(110) & Chr(99) & Chr(101)).Copy
Else
ThisWorkbook.Sheets(Chr(65) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(50)).Range(Chr(65) & Chr(114) & Chr(97) & Chr(98) & Chr(101)).Copy
End If
If ActiveWorkbook.Sheets(1).Cells(15, llllII1Il1I1I1ll11llIlIII11lII111IIlI11Illllll1lI11llllI11IllIllIIlll11lI1IIllll).Value = Chr(35) & Chr(49) & Chr(48) & Chr(48) & Chr(35) _
Or ActiveWorkbook.Sheets(1).Cells(15, llllII1Il1I1I1ll11llIlIII11lII111IIlI11Illllll1lI11llllI11IllIllIIlll11lI1IIllll).Value = Chr(35) & Chr(67) & Chr(79) & Chr(77) & Chr(35) Then
ActiveWorkbook.Sheets(1).Cells(18, llllII1Il1I1I1ll11llIlIII11lII111IIlI11Illllll1lI11llllI11IllIllIIlll11lI1IIllll).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Sheets(1).Range(Chr(65) & Chr(51)).Select
MsgBox Chr(70) & Chr(233) & Chr(108) & Chr(105) & Chr(99) & Chr(105) & Chr(116) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(32) & Chr(33) & vbLf & vbLf _
& Chr(108) & Chr(101) & Chr(115) & Chr(32) & Chr(97) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(32) & Chr(111) & Chr(110) & Chr(116) & Chr(32) & Chr(233) & Chr(116) & Chr(233) & Chr(32) & Chr(105) & Chr(110) & Chr(115) & Chr(233) & Chr(114) & Chr(233) & Chr(101) & Chr(115) & Chr(32) & Chr(97) & Chr(118) & Chr(101) & Chr(99) & Chr(32) & Chr(115) & Chr(117) & Chr(99) & Chr(99) & Chr(232) & Chr(115), , _
llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll
Else
MsgBox Chr(80) & Chr(97) & Chr(115) & Chr(32) & Chr(100) & Chr(101) & Chr(32) & Chr(99) & Chr(111) & Chr(108) & Chr(111) & Chr(110) & Chr(110) & Chr(101) & Chr(32) & Chr(100) & Chr(39) & Chr(97) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(32) & Chr(100) & Chr(97) & Chr(110) & Chr(115) & Chr(32) & Chr(99) & Chr(101) & Chr(32) & Chr(100) & Chr(111) & Chr(99) & Chr(117) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(32) & Chr(58) & Chr(32) & Chr(32) _
& llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll & vbCrLf & vbCrLf & Chr(86) & Chr(101) & Chr(117) & Chr(105) & Chr(108) & Chr(108) & Chr(101) & Chr(122) & Chr(32) & Chr(114) & Chr(101) & Chr(115) & Chr(115) & Chr(97) & Chr(121) & Chr(101) & Chr(114) & Chr(32) & Chr(33), vbInformation, _
llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll
End If
llllII1Il1l11IIl11111IIIl1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11II1lI1IIllll.Close SaveChanges:=True
ThisWorkbook.Sheets(Chr(65) & Chr(112) & Chr(112) & Chr(114) & Chr(233) & Chr(99) & Chr(105) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(115) & Chr(50)).Activate
Application.CutCopyMode = False
Range(Chr(90) & Chr(111) & Chr(110) & Chr(101) & Chr(84) & Chr(101) & Chr(109) & Chr(112)).ClearContents
Cells(12, 10).Select
Application.ScreenUpdating = True
End
lllllIllllllIIIIIIIIIIIIlIl111111111111IIIIIIllll:
If Err.Number <> 0 And Err.Number <> &H34 And Err.Number <> &H3EC Then
MsgBox Chr(69) & Chr(114) & Chr(114) & Chr(101) & Chr(117) & Chr(114) & Chr(32) & Chr(58) & Chr(32) & Chr(32) & Err.Number & vbCrLf & vbCrLf & llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll, vbCritical, _
llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll
Err.Clear
Resume Next
ElseIf Err.Number = &H34 Then
llllllllll1lIIIIIIIIIIIIlIl111111111111IIIIIIllll
If llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll <> Empty Then llllII1Il1l11IIl11111IIIl1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11II1lI1IIllll.Close SaveChanges:=False
Application.CutCopyMode = False
Range(Chr(90) & Chr(111) & Chr(110) & Chr(101) & Chr(84) & Chr(101) & Chr(109) & Chr(112)).ClearContents
Cells(12, 10).Select
End
ElseIf Err.Number = &H3EC Then
llllII1Il1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIll1IIIIIlII1II1II1lI1IIllll = llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll
lllllIlll11lIIIIIIIIIIIIlIl111111111111IIIIIIllll
If llllII1Il111lIIIIlll1llIIII1ll1II1II1IlIllI11I1I1l1lII1I1I111lII11lII11lI1IIllll <> Empty Then llllII1Il1l11IIl11111IIIl1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11II1lI1IIllll.Close SaveChanges:=False
Application.CutCopyMode = False
Range(Chr(90) & Chr(111) & Chr(110) & Chr(101) & Chr(84) & Chr(101) & Chr(109) & Chr(112)).ClearContents
Cells(12, 10).Select
End
End If
End Sub
Sub Hello()
Dim llllII1Il1ll1IlI1l1l11Ill1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill11lI1IIllll As String
MsgBox ThisWorkbook.BuiltinDocumentProperties(1).Value _
& vbCrLf & vbCrLf & Chr(86) & Chr(101) & Chr(114) & Chr(115) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(111) & Chr(102) & Chr(102) & Chr(105) & Chr(99) & Chr(101) & Chr(32) & Chr(58) & Chr(32) & Chr(32) & Application.Version, , llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll & Chr(32) & Chr(32) & Chr(45) & Chr(32) & Chr(32) & Date
End Sub
Sub lllllIllll1lIlIIIIIIIIIIIIl1111111111111IIIIIllll()
Dim llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll, llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll
With Worksheets(Chr(65) & Chr(99) & Chr(99) & Chr(117) & Chr(101) & Chr(105) & Chr(108))
If .Shapes(Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(54)).Visible = False Then
llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll = Range(Chr(&H57) & &HC).Top
llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll = Range(Chr(&H57) & &HC).Left
.Shapes(Chr(83) & Chr(110) & Chr(105) & Chr(112) & Chr(32) & Chr(68) & Chr(105) & Chr(97) & Chr(103) & Chr(111) & Chr(110) & Chr(97) & Chr(108) & Chr(32) & Chr(67) & Chr(111) & Chr(114) & Chr(110) & Chr(101) & Chr(114) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(53)).Visible = True
.Shapes(Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(54)).Visible = True
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(55)).Visible = True
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(56)).Visible = True
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(57)).Visible = True
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(49) & Chr(48)).Visible = True
.Shapes(Chr(83) & Chr(110) & Chr(105) & Chr(112) & Chr(32) & Chr(68) & Chr(105) & Chr(97) & Chr(103) & Chr(111) & Chr(110) & Chr(97) & Chr(108) & Chr(32) & Chr(67) & Chr(111) & Chr(114) & Chr(110) & Chr(101) & Chr(114) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(53)).Top = llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll + 8.44
.Shapes(Chr(83) & Chr(110) & Chr(105) & Chr(112) & Chr(32) & Chr(68) & Chr(105) & Chr(97) & Chr(103) & Chr(111) & Chr(110) & Chr(97) & Chr(108) & Chr(32) & Chr(67) & Chr(111) & Chr(114) & Chr(110) & Chr(101) & Chr(114) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(53)).Left = llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll + 13.1175537109375
.Shapes(Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(54)).Top = llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll + 42.94
.Shapes(Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(54)).Left = llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll + 13.4277954101563
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(57)).Top = llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll + 68.0624389648438
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(57)).Left = llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll + 67.167724609375
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(49) & Chr(48)).Top = llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll + 68.0624389648438
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(49) & Chr(48)).Left = llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll + 114.042663574219
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(55)).Top = llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll + 68.0624389648438
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(55)).Left = llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll + 160.917724609375
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(56)).Top = llllII1Il1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I1111lIIlllI11IlIl1lI1IIllll + 68.0624389648438
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(56)).Left = llllII1Il1111lII11lII11I1lllIIIIIIII1II1III1Ill1I11I11IIII1ll1l1lI1III1lI1IIllll + 207.792785644531
Else
Exit Sub
End If
End With
End Sub
Sub lllllIllll1lIlIIIIIIIIIIIIl11111111111IIIIIIIllll()
On Error Resume Next
With ActiveSheet
If .Shapes(Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(54)).Visible = True Then
.Shapes(Chr(83) & Chr(110) & Chr(105) & Chr(112) & Chr(32) & Chr(68) & Chr(105) & Chr(97) & Chr(103) & Chr(111) & Chr(110) & Chr(97) & Chr(108) & Chr(32) & Chr(67) & Chr(111) & Chr(114) & Chr(110) & Chr(101) & Chr(114) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(53)).Visible = False
.Shapes(Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(54)).Visible = False
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(55)).Visible = False
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(56)).Visible = False
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(57)).Visible = False
.Shapes(Chr(82) & Chr(111) & Chr(117) & Chr(110) & Chr(100) & Chr(101) & Chr(100) & Chr(32) & Chr(82) & Chr(101) & Chr(99) & Chr(116) & Chr(97) & Chr(110) & Chr(103) & Chr(108) & Chr(101) & Chr(32) & Chr(49) & Chr(48)).Visible = False
Else
Exit Sub
End If
End With
End Sub
Private Sub lllllIllll1lIIIIIIIIIIIIII1l1111111111111IIIIIllll()
Dim llllII1Il1I1II1Il1I1IIlI11llI1IllI11IlI11ll1lIII1llll111I11llllI1IIllI1lI1IIllll As Date: Exit Sub
llllII1Il1I1II1Il1I1IIlI11llI1IllI11IlI11ll1lIII1llll111I11llllI1IIllI1lI1IIllll = Chr(50) & Chr(49) & Chr(47) & Chr(48) & Chr(53) & Chr(47) & Chr(50) & Chr(48) & Chr(49) & Chr(55)
If Date >= llllII1Il1I1II1Il1I1IIlI11llI1IllI11IlI11ll1lIII1llll111I11llllI1IIllI1lI1IIllll Then
MsgBox Chr(67) & Chr(101) & Chr(116) & Chr(116) & Chr(101) & Chr(32) & Chr(118) & Chr(101) & Chr(114) & Chr(115) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(97) & Chr(32) & Chr(101) & Chr(120) & Chr(112) & Chr(105) & Chr(114) & Chr(233) & Chr(32) & Chr(33), vbCritical, Chr(77) & Chr(46) & Chr(32) & Chr(75) & Chr(79) & Chr(85) & Chr(72) & Chr(76) & Chr(65) & Chr(78) & Chr(73)
Exit Sub
Else
llllII1Il1I1II1Il1I1IIlI11llI1IllI11IlI11ll1lIII1llll111I11llllI1IIllI1lI1IIllll = Date
Range(Chr(65) & Chr(49)).Activate
End If
End
End Sub
Private Sub lllllIllll1lIIIIIIIIIIIIII1l111111111111IIIIIlllll()
Dim llllII1Il11llI1l11lIIl1l11I1llII1lIIII1l1IIl1IIlI11IlIIII1ll1llIIIl1l11lI1IIllll As Boolean
Dim llllII1Il1I11lI1IIIIlllll111I11llllI11IllIllIl1l11lI1lIlIlIlllIlIlIII11lI1IIllll As Integer
llllII1Il1llIIll11lI1lIl1lIlllIlIlIII1lIII1llI1lI111IlllIlllIllIlllIl11lI1IIllll = ""
llllII1Il11l111llIl111IllIllIIlI11II1I1I1lIlIlIl1II1I1lIII1ll11II1l1II1lI1IIllll = 0
MaBarre.Show 0
MaBarre.Height = 132
MaBarre.Image1.Width = 200
MaBarre.Label1.Caption = 100 & Chr(32) & Chr(37)
For llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll = 1 To UBound(llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll, 2)
llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll(1, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1)
llllII1Il1I1l1ll1lIIII1lIIIl1IIlII1IlIIII1ll1l1lIIl1l1Ill1llIIlI11II1I1lI1IIllll = llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll(2, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1)
llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll = llllII1Il1llll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1llI1l111lI1IIllll(0, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1)
llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll = llllII1Il1llll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1llI1l111lI1IIllll(1, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1)
llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll = llllII1Il1llll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1llI1l111lI1IIllll(2, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1)
llllII1Il1IIlIllIIlll1l11l1l1lIlllII1l111llI111llI1l1l11IIIIIlll1llIII1lI1IIllll = llllII1Il1llll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1llI1l111lI1IIllll(3, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1)
llllII1Il11llI1l11lIIl1l11I1llII1lIIII1l1IIl1IIlI11IlIIII1ll1llIIIl1l11lI1IIllll = False
MaBarre.Image4.Width = Round(200 * ((llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll) / UBound(llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll, 2)))
MaBarre.Label2.Caption = Round(100 * ((llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll) / UBound(llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll, 2))) & Chr(32) & Chr(37)
MaBarre.Caption = llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll & Chr(32) & Chr(47) & Chr(32) & UBound(llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll, 2)
DoEvents
If UBound(llllII1Il1lIIll11lIl111I1II1lII111IlIll1I11I1l11IIllI1I1I1111I11lllIlI1lI1IIllll) > 0 Then
For llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll = 0 To UBound(llllII1Il1lIIll11lIl111I1II1lII111IlIll1I11I1l11IIllI1I1I1111I11lllIlI1lI1IIllll) - 1
If llllII1Il1lIIll11lIl111I1II1lII111IlIll1I11I1l11IIllI1I1I1111I11lllIlI1lI1IIllll(llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll) = (llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll * 10) + llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll Then llllII1Il11llI1l11lIIl1l11I1llII1lIIII1l1IIl1IIlI11IlIIII1ll1llIIIl1l11lI1IIllll = True
Next llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll
End If
If Not llllII1Il11llI1l11lIIl1l11I1llII1lIIII1l1IIl1IIlI11IlIIII1ll1llIIIl1l11lI1IIllll Then
For Each llllII1Il111ll111I1II1I1I1l111llI1III11lIII11lI1I1IIlllll111I11llllI111lI1IIllll In ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & "").Range(Chr(70) & Chr(51) & Chr(58) & Chr(86) & Chr(51))
If llllII1Il111ll111I1II1I1I1l111llI1III11lIII11lI1I1IIlllll111I11llllI111lI1IIllll.Value = llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll Then
llllII1Il1I11lI1IIIIlllll111I11llllI11IllIllIl1l11lI1lIlIlIlllIlIlIII11lI1IIllll = llllII1Il111ll111I1II1I1I1l111llI1III11lIII11lI1I1IIlllll111I11llllI111lI1IIllll.Column
Set llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll = Workbooks.Open(llllII1Il1IlIl11I11I1l11Il1lIIlIII111I11l1lllII1llIIIlI1lIIl1111l1I1lI1lI1IIllll & Chr(92) & llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll(0, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1))
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & "").Activate
Range(Cells(5, llllII1Il1I11lI1IIIIlllll111I11llllI11IllIllIl1l11lI1lIlIlIlllIlIlIII11lI1IIllll), Cells(llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll, llllII1Il1I11lI1IIIIlllll111I11llllI11IllIllIl1l11lI1lIlIlIlllIlIlIII11lI1IIllll)).Copy
llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll.Sheets(1).Cells(18, llllII1Il1IIlIllIIlll1l11l1l1lIlllII1l111llI111llI1l1l11IIIIIlll1llIII1lI1IIllll).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll.Close SaveChanges:=True
llllII1Il1llIIll11lI1lIl1lIlllIlIlIII1lIII1llI1lI111IlllIlllIllIlllIl11lI1IIllll = llllII1Il1llIIll11lI1lIl1lIlllIlIlIII1lIII1llI1lI111IlllIlllIllIlllIl11lI1IIllll & Chr(32) & Chr(32) & Chr(32) & Chr(32) & llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll & Chr(45) & Chr(32) & Chr(32) & llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll(0, llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll - 1) & vbLf
llllII1Il11l111llIl111IllIllIIlI11II1I1I1lIlIlIl1II1I1lIII1ll11II1l1II1lI1IIllll = llllII1Il11l111llIl111IllIllIIlI11II1I1I1lIlIlIl1II1I1lIII1ll11II1l1II1lI1IIllll + 1
llllII1Il1I1111lIIl11l11lI1l1IlII1I111l111llIlIIlI1lIlI11IIlII1IllllI11lI1IIllll = llllII1Il1I1111lIIl11l11lI1l1IlII1I111l111llIlIIlI1lIlI11IIlII1IllllI11lI1IIllll + llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll - 4
Exit For
End If
Next
End If
Next llllII1Il11II1lI1I1ll11I1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll
MaBarre.Caption = llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & UBound(llllII1Il11II1II11I1ll11l1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII1111lI1IIllll, 2) & Chr(32) & Chr(32) & Chr(47) & Chr(32) & Chr(32) & llllII1Il1I1l1IlIlIIII1lIIIl1IIllI1Illlll1llIllllllIlIIllIllIIll11II1I1lI1IIllll
MaBarre.Move 50
End Sub
Private Sub lllllIllll1lIIIIIIIIIIIIII1l11111111111IIIIIIIllll()
On Error GoTo lllllIIlll1lIIIIIIIIIIIIlIl111111111111IIIIIIllll
Set llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll = Workbooks.Open(llllII1Il1IlIl11I11I1l11Il1lIIlIII111I11l1lllII1llIIIlI1lIIl1111l1I1lI1lI1IIllll & Chr(92) & llllII1Il1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIll1IIIIIlII1II1II1lI1IIllll)
llllII1Il1III1ll1llIIIl1l1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIl1lI1IIllll = False
If ActiveWorkbook.Sheets(1).Range(Chr(66) & Chr(49) & Chr(54)).Value <> Chr(73) & Chr(68) Or ActiveWorkbook.Sheets(1).Range(Chr(67) & Chr(50) & Chr(48) & Chr(48)).End(xlUp).Row = 16 Then
llllII1Il1III1ll1llIIIl1l1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIl1lI1IIllll = True
llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll.Close SaveChanges:=False
Exit Sub
End If
llllII1Il11lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111lI1IIllll = llllII1Il11lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111lI1IIllll + 1
If llllII1Il11lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111lI1IIllll = 1 Then lllllIllll1lIlIIIIIIIIIIIII111111111111IIIIIIllll
If (llllII1Il11lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111lI1IIllll = 1) And (llllII1Il1lIIII1ll1II1II11IIllI1lI1IlI1III1I1I111lI111lII1lI1lll1III1I1lI1IIllll = 0) Then llllII1Il1llIIIIIlII1II1III1IllII1II11IIII1ll1l1lI1III11l1lllI11lll1I11lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(68) & Chr(49) & Chr(51)).Value
llllII1Il1I1l1ll1lIIII1lIIIl1IIlII1IlIIII1ll1l1lIIl1l1Ill1llIIlI11II1I1lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(105) & Chr(57)).Value
llllII1Il1IIlIllIIlll1l11l1l1lIlllII1l111llI111llI1l1l11IIIIIlll1llIII1lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(66) & Chr(66) & Chr(49) & Chr(53)).End(xlToLeft).Column
llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(67) & Chr(50) & Chr(48) & Chr(48)).End(xlUp).Row
llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(71) & Chr(53)).Value
llllII1Il111l1lllI11lll1I1l1lIII11111IIIl1I1111l1ll11l11ll111I1II1I1I11lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(105) & Chr(53)).Value
llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(75) & Chr(53)).Value
If (llllII1Il1llIIIIIlII1II1III1IllII1II11IIII1ll1l1lI1III11l1lllI11lll1I11lI1IIllll <> "") And (llllII1Il1llIIIIIlII1II1III1IllII1II11IIII1ll1l1lI1III11l1lllI11lll1I11lI1IIllll <> ActiveWorkbook.Sheets(1).Range(Chr(68) & Chr(49) & Chr(51)).Value) Then
llllII1Il11lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111lI1IIllll = llllII1Il11lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111lI1IIllll - 1
If llllII1Il11I1lIlllII1I1111ll111I1I1II1l1IIIIIlll1IlIIII1I1III1III1IIll1lI1IIllll = Empty Then
llllII1Il11I1lIlllII1I1111ll111I1I1II1l1IIIIIlll1IlIIII1I1III1III1IIll1lI1IIllll = ActiveWorkbook.Sheets(1).Range(Chr(68) & Chr(49) & Chr(51)).Value
MsgBox Chr(76) & Chr(39) & Chr(97) & Chr(112) & Chr(112) & Chr(108) & Chr(105) & Chr(99) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(97) & Chr(32) & Chr(100) & Chr(233) & Chr(116) & Chr(101) & Chr(99) & Chr(116) & Chr(233) & Chr(32) & Chr(108) & Chr(97) & Chr(32) & Chr(112) & Chr(114) & Chr(233) & Chr(115) & Chr(101) & Chr(110) & Chr(99) & Chr(101) & Chr(32) & Chr(100) & Chr(101) & Chr(32) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(105) & Chr(101) & Chr(114) & Chr(115) & Chr(32) _
& Chr(97) & Chr(112) & Chr(112) & Chr(97) & Chr(114) & Chr(116) & Chr(101) & Chr(110) & Chr(97) & Chr(110) & Chr(116) & Chr(32) & Chr(224) & Chr(32) & Chr(100) & Chr(101) & Chr(117) & Chr(120) & Chr(32) & Chr(97) & Chr(110) & Chr(110) & Chr(233) & Chr(101) & Chr(115) & Chr(32) & Chr(115) & Chr(99) & Chr(111) & Chr(108) & Chr(97) & Chr(105) & Chr(114) & Chr(101) & Chr(115) & Chr(32) & Chr(100) & Chr(105) & Chr(102) & Chr(102) & Chr(233) & Chr(114) & Chr(101) & Chr(110) & Chr(116) & Chr(101) & Chr(115) & Chr(32) & Chr(33) _
& vbLf & vbLf & Chr(49) & Chr(45) & Chr(32) & Chr(32) & Chr(34) & Chr(32) & llllII1Il1llIIIIIlII1II1III1IllII1II11IIII1ll1l1lI1III11l1lllI11lll1I11lI1IIllll & Chr(32) & Chr(34) _
& vbLf & vbLf & Chr(50) & Chr(45) & Chr(32) & Chr(32) & Chr(34) & Chr(32) & ActiveWorkbook.Sheets(1).Range(Chr(68) & Chr(49) & Chr(51)).Value _
& Chr(32) & Chr(34) & vbLf & vbLf & Chr(83) & Chr(101) & Chr(117) & Chr(108) & Chr(115) & Chr(32) & Chr(108) & Chr(101) & Chr(115) & Chr(32) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(105) & Chr(101) & Chr(114) & Chr(115) & Chr(32) & Chr(100) & Chr(101) & Chr(32) & Chr(32) & Chr(34) & Chr(32) & llllII1Il1llIIIIIlII1II1III1IllII1II11IIII1ll1l1lI1III11l1lllI11lll1I11lI1IIllll _
& Chr(32) & Chr(34) & Chr(32) & Chr(32) & Chr(115) & Chr(101) & Chr(114) & Chr(111) & Chr(110) & Chr(116) & Chr(32) & Chr(112) & Chr(114) & Chr(105) & Chr(115) & Chr(32) & Chr(101) & Chr(110) & Chr(32) & Chr(99) & Chr(104) & Chr(97) & Chr(114) & Chr(103) & Chr(101) & Chr(32) & Chr(46), vbExclamation, llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll _
& Chr(32) & Chr(32) & Chr(58) & Chr(32) & Chr(32) & Chr(32) & Chr(86) & Chr(233) & Chr(114) & Chr(105) & Chr(102) & Chr(105) & Chr(99) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(100) & Chr(101) & Chr(32) & Chr(108) & Chr(39) & Chr(97) & Chr(110) & Chr(110) & Chr(233) & Chr(101) & Chr(32) & Chr(115) & Chr(99) & Chr(111) & Chr(108) & Chr(97) & Chr(105) & Chr(114) & Chr(101)
Application.CutCopyMode = False
llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll.Close SaveChanges:=False
Exit Sub
Else
Application.CutCopyMode = False
llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll.Close SaveChanges:=False
Exit Sub
End If
End If
lllllIllll1lIIIIIIIIIIIIIIl111111111111IIIIIIllll
If llllII1Il1III1ll1llIIIl1l1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIl1lI1IIllll Then
llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll.Close SaveChanges:=False
Exit Sub
End If
If ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & "").Cells(1, 1).Value = "" Then
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & "").Cells(1, 1).Value = llllII1Il1I1l1ll1lIIII1lIIIl1IIlII1IlIIII1ll1l1lIIl1l1Ill1llIIlI11II1I1lI1IIllll
ActiveWorkbook.Sheets(1).Range(Cells(18, 3), Cells(llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll, 4)).Copy
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & "").Cells(5, 3).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
If llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll = Chr(35) & Chr(35) Then
MsgBox Chr(69) & Chr(120) & Chr(97) & Chr(109) & Chr(101) & Chr(110), , llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll
For llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll = 1 To (llllII1Il1IIlIllIIlll1l11l1l1lIlllII1l111llI111llI1l1l11IIIIIlll1llIII1lI1IIllll - 5) / 2
lllllIllll1llIIIIIIIIIIIII1l111111111111IIIIIIllll
llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll = ActiveWorkbook.Sheets(1).Cells(15, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2)).Value
llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll = 0
Do While llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll < 7
If llllII1Il1l1lIlI1I1Il11lllI11llIIll11lIl11111II1lII111IlIll1Il111l11II1lI1IIllll(llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll) = llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll Then Exit Do
llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll = llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 1
Loop
If llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll < 7 Then
ActiveWorkbook.Sheets(1).Range(Cells(18, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2)), _
Cells(llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2))).Copy
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & Chr(53) & Chr(34)).Cells(5, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
llllII1Il1II11I1ll11lIlIlI1III1Il11l1lI111lIIll11lIl111I1II1lII111IlIl1lI1IIllll = llllII1Il1II11I1ll11lIlIlI1III1Il11l1lI111lIIll11lIl111I1II1lII111IlIl1lI1IIllll + llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll - 17
End If
Next llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll
Else
For llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll = 1 To (llllII1Il1IIlIllIIlll1l11l1l1lIlllII1l111llI111llI1l1l11IIIIIlll1llIII1lI1IIllll - 5) / 2
lllllIllll1llIIIIIIIIIIIII1l111111111111IIIIIIllll
llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll = ActiveWorkbook.Sheets(1).Cells(15, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2)).Value
llllII1Il1I1ll1II1II1IlIllI11I1I1l1lII1I1I111lII111II11I1lllIIIIIlII1I1lI1IIllll = ActiveWorkbook.Sheets(1).Cells(16, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2)).Value
If llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll <> Chr(35) & Chr(67) & Chr(79) & Chr(77) & Chr(35) Then
llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll = 0
If llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll = 1 Then
Do While llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll < UBound(llllII1Il11II1lI1I1llI1l1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll()) + 1
If llllII1Il11II1lI1I1llI1l1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll(llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll) = llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll Then Exit Do
llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll = llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 1
Loop
If llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll > UBound(llllII1Il11II1lI1I1llI1l1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll()) Then
ReDim Preserve llllII1Il11II1lI1I1llI1l1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll(llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll)
llllII1Il11II1lI1I1llI1l1111IIIIIllI1llIIII1ll1II1II11IIllI1lI1IlI1III1lI1IIllll(llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll) = llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll
For llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll = 1 To 4
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll & "").Cells(2, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).Value = llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll & "").Cells(3, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).Value = llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll & "").Cells(4, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).Value = llllII1Il1I1ll1II1II1IlIllI11I1I1l1lII1I1I111lII111II11I1lllIIIIIlII1I1lI1IIllll
Next llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll
End If
Else
Do While llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll < UBound(llllII1Il1lIII1ll11II111IlllIllI1llIlIl1l11IlIIlI1IIllI1lI1IlIIIIlII1I1lI1IIllll()) + 1
If llllII1Il1lIII1ll11II111IlllIllI1llIlIl1l11IlIIlI1IIllI1lI1IlIIIIlII1I1lI1IIllll(llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll) = llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll Then Exit Do
llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll = llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 1
Loop
If llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll > UBound(llllII1Il1lIII1ll11II111IlllIllI1llIlIl1l11IlIIlI1IIllI1lI1IlIIIIlII1I1lI1IIllll()) Then
ReDim Preserve llllII1Il1lIII1ll11II111IlllIllI1llIlIl1l11IlIIlI1IIllI1lI1IlIIIIlII1I1lI1IIllll(llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll)
llllII1Il1lIII1ll11II111IlllIllI1llIlIl1l11IlIIlI1IIllI1lI1IlIIIIlII1I1lI1IIllll(llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll) = llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll
For llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll = 1 To 4
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll & "").Cells(2, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).Value = llllII1Il1llIlIlI1l11Il1IllIlI11llI1IlIllI1Illlll111I111ll1I1Ill1Il1lI1lI1IIllll
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll & "").Cells(3, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).Value = llllII1Il1llIl1l1l1llIl1l1IIlIIlI1IIl1I1lI1lllIIIlII1I111llI11lll1lI1l1lI1IIllll
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll & "").Cells(4, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).Value = llllII1Il1I1ll1II1II1IlIllI11I1I1l1lII1I1I111lII111II11I1lllIIIIIlII1I1lI1IIllll
Next llllII1Il1II1I11I1lI1I1ll11I11l1IIII1llIlllII1I1ll1II1II11I1ll11lIlIlI1lI1IIllll
End If
End If
ActiveWorkbook.Sheets(1).Range(Cells(18, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2)), _
Cells(llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll, 5 + (llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll * 2))).Copy
ThisWorkbook.Sheets("" & llllII1Il1lI1lll1III1III1II1III1Ill1I11I1l1III1lI1l1I111II11l1lllI11ll1lI1IIllll & llllII1Il1I11lI1l1II1llll111I11llllI11IllIllII1l11l1Il1l11I1llII1l1II11lI1IIllll & llllII1Il111l1lllI11lll1I1l1lIII11111IIIl1I1111l1ll11l11ll111I1II1I1I11lI1IIllll & "").Cells(5, llllII1Il11Illllll1lI11llllI11IllIllIIlll1l11l1l1lIlllII1l1II1lI1I1ll11lI1IIllll + 5).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
llllII1Il1II11I1ll11lIlIlI1III1Il11l1lI111lIIll11lIl111I1II1lII111IlIl1lI1IIllll = llllII1Il1II11I1ll11lIlIlI1III1Il11l1lI111lIIll11lIl111I1II1lII111IlIl1lI1IIllll + llllII1Il1ll111lIIl1l1Ill1llI1lIl1I11IlIll1lIlIIlI1111lI111Il11I11l1I11lI1IIllll - 17
End If
Next llllII1Il1I1I1111I11lllIlI11llI1IlIllI1Il1l1l1I1I1I11l1I1Ill1ll1lIll1I1lI1IIllll
End If
Application.CutCopyMode = False
llllII1Il1ll1lI1I11lII1l1I1lI11IlIIIIlll111lIIl1l1Ill1llI1lIl1I11IlIll1lI1IIllll.Close SaveChanges:=False
lllllIIlll1lIIIIIIIIIIIIlIl111111111111IIIIIIllll:
If Err.Number <> 0 And Err.Number <> &H34 And Err.Number <> &H3EC Then
MsgBox Err.Number & vbCrLf & vbCrLf & llllII1Il1IlI1lIIIlI11I11I1I1l1lII1I1I1111lI111Il11IIll1IIIIIlII1II1II1lI1IIllll, vbCritical, llllII1Il1I1111l1ll11l11ll11II1lI1I1IIl111llI1IIII11III11lI1lIII1llll11lI1IIllll
Err.Clear
Resume Next
ElseIf Err.Number = &H34 Then
llllllllll1lIIIIIIIIIIIIlIl111111111111IIIIIIllll
Err.Clear
Resume Next
ElseIf Err.Number = &H3EC Then
lllllIlll11lIIIIIIIIIIIIlIl111111111111IIIIIIllll
Err.Clear
Exit Sub
End If
End Sub
Sub llllllllll1lIIIIIIIIIIIIlIl111111111111IIIIIIllll()
If llllII1Il1lll111I11llllI11IllIllII1ll1l11l1l11IlllII1l1II1lI1I1llIIlI11lI1IIllll = Chr(65) & Chr(114) & Chr(97) & Chr(98) & Chr(101) Then
MsgBox Err.Description & vbCrLf & vbCrLf _
& Chr(76) & Chr(101) & Chr(115) & Chr(32) & Chr(110) & Chr(111) & Chr(109) & Chr(115) & Chr(32) & Chr(100) & Chr(101) & Chr(115) & Chr(32) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(105) & Chr(101) & Chr(114) & Chr(115) & Chr(32) & Chr(111) & Chr(117) & Chr(32) & Chr(100) & Chr(111) & Chr(115) & Chr(115) & Chr(105) & Chr(101) & Chr(114) & Chr(115) & Chr(32) & Chr(110) & Chr(101) & Chr(32) & Chr(100) & Chr(111) & Chr(105) & Chr(118) & Chr(101) & Chr(110) & Chr(116) & Chr(32) & Chr(112) & Chr(97) & Chr(115) & Chr(32) & Chr(58) _
& vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(49) & Chr(45) & Chr(32) & Chr(99) & Chr(111) & Chr(110) & Chr(116) & Chr(101) & Chr(110) & Chr(105) & Chr(114) & Chr(32) & Chr(58) & Chr(32) & Chr(40) & Chr(32) & Chr(34) & Chr(32) & Chr(41) & Chr(44) & Chr(32) & Chr(40) & Chr(32) & Chr(39) & Chr(32) & Chr(41) & Chr(44) & Chr(32) & Chr(40) & Chr(32) & Chr(47) & Chr(32) & Chr(41) & Chr(44) & Chr(32) & Chr(40) & Chr(32) & Chr(92) & Chr(32) & Chr(41) & Chr(44) & Chr(32) & Chr(40) & Chr(32) & Chr(58) & Chr(32) & Chr(41) & Chr(44) & Chr(32) & Chr(40) & Chr(32) & Chr(124) & Chr(32) & Chr(41) & Chr(44) & Chr(32) & Chr(40) & Chr(32) & Chr(63) & Chr(32) & Chr(41) & Chr(46) _
& vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(50) & Chr(45) & Chr(32) & Chr(100) & Chr(233) & Chr(112) & Chr(97) & Chr
... (truncated)
vbaProject_00.bin vba-project OOXML VBA project: xl/vbaProject.bin 494592 bytes
SHA-256: 36e02042cd776dae66b5976bf98ccf1133f5838cae6a0f39e16c6ff2649f2301

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