如何破解<em>EXCEL</em> <em>VB</em>A<e

Sub MoveProtect()
    Dim FileName As String
    FileName = Application.GetOpenFilename("Excel文件（*.xlsm & *.xlam）,*.xlsm;*.xlam", , "VBA破解")
    If FileName = CStr(False) Then
       Exit Sub
    Else
       VBAPassword FileName, False
    End If
End Sub

Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
      If Dir(FileName) = "" Then
         Exit Function
      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, "提示7a64e58685e5aeb9365"
         Exit Function
      End If
      If Protect = False Then
         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, "提示"
      Else
         Dim MMs As String * 5
         MMs = "DPB="""
         Put #1, CMGs, MMs
         MsgBox "对文件特殊加密成功......", 32, "提示"
      End If
      Close #1
End Function

如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，e799bee5baa6e4b893e5b19e339可用以下步骤解开（关掉所有程序，为了速度）：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub

然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）
网上能找复到一些专门破解Office密码的软件，一般都是使用字典和暴力两种方式，如果制密码不长可以试出来，可以破解打开文件的密码知和打开VBA的密码，不过一定要小心，这种软件不是正式软件，有很多都有毒或是木马，小心小道心。

网上能知找到一些专门破解Office密码的软件，一般都是使用字典和暴力两种方式，如果密码不长可以道试出来，可以破解打开文件的密码和内打开VBA的密码，不过一定要小心，这种软件不是容正式软件，有很多都有毒或是木马，小心小心。