方法二：Excel 2016 VBA工程密碼破解

1. 將你要破解的Excel文件關閉，切記必定要關閉呀！而後新建一個Excel文件

    

    

2. 打開新建的這個Excel，按下alt+F11，打開vb界面，新建一個模塊，如圖所示

    

3. 將代碼複製到這個模塊中，代碼以下：
   Private Sub VBAPassword() '你要解保護的Excel文件路徑（把要破解的excel保存爲2003-97 xls）
   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