首頁>Club>
109
回覆列表
  • 1 # 拓語教育

    破解VBAproject工程密碼

    1、將你要破解的Excel檔案關閉,然後新建一個Excel檔案

    2、開啟新建的這個Excel,按下alt+F11,開啟vb介面,新建一個模組

    3、將程式碼複製到這個模組中

    Private Sub VBAPassword() "你要解保護的Excel檔案路徑

    Filename = Application.GetOpenFilename("Excel檔案(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")

    If Dir(Filename) = "" Then

    MsgBox "沒找到相關檔案,請重新設定。"

    Exit Sub

    Else

    FileCopy Filename, Filename & ".bak" "備份檔案。

    End If

    Dim GetData As String * 5

    Open Filename For Binary As #1

    Dim CMGs As Long

    Dim DPBo As Long

    For i = 1 To LOF(1)

    Get #1, i, GetData

    If GetData = "CMG=""" Then CMGs = i

    If GetData = "[Host" Then DPBo = i - 2: Exit For

    Next

    If CMGs = 0 Then

    MsgBox "請先對VBA編碼設定一個保護密碼...", 32, "提示"

    Exit Sub

    End If

    Dim St As String * 2

    Dim s20 As String * 1

    "取得一個0D0A十六進位制字串

    Get #1, CMGs - 2, St

    "取得一個20十六制字串

    Get #1, DPBo + 16, s20

    "替換加密部分機碼

    For i = CMGs To DPBo Step 2

    Put #1, i, St

    Next

    "加入不配對符號

    If (DPBo - CMGs) Mod 2 <> 0 Then

    Put #1, DPBo + 1, s20

    End If

    MsgBox "檔案解密成功......", 32, "提示"

    Close #1

    End Sub

    6、這裡我們會看到破解成功的提示了

    7、再次開啟破解的這個檔案,可以檢視程式碼了

  • 中秋節和大豐收的關聯?
  • 水電在櫥櫃設計之後還是之前?有哪位清楚?