excel加密文件忘记密码应该怎么解密？

如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：\x0d\x0a新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这世派一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码\x0d\x0aSub crack()\x0d\x0aDim i As Long\x0d\x0ai = 1\x0d\x0aline2:\x0d\x0aOn Error GoTo line1\x0d\x0aDo While True\x0d\x0aWorkbooks.Open "1.xls", , , , i\x0d\x0aWorkbooks("1.xls").Close 0\x0d\x0aMsgBox "Password is" &i\x0d\x0aExit Sub\x0d\x0aLoop\x0d\x0aline1:\x0d\x0ai = i + 1\x0d\x0aResume line2\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a然后运行此宏（灶早回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）\x0d\x0a\x0d\x0a如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。\x0d\x0a\x0d\x0a若搜辩贺果还有读写密码，且与打开密码一样，将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i

记住，所有字符都是英文格式的。

如果你只有打开密码，且密码是6位数以内的数字，源配唤可用以下步骤解开：

新开一Wordl，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.doc（如果是2007，可能叫1.docx，需要把下面代码中两处改成1.docx改了）。然后回到Word窗口，同时按Alt和F11，右键点左上窗口中的Thisdocument，插入，模块，在右边新出来的窗口粘贴一下代码

Sub crack()

Dim i As Long

i = 1

line2:

On Error GoTo line1

Do While True

Documents.Open "1.doc", , , , "" &i

Documents("1.doc").Close 0

MsgBox "Password is" &i

Exit Sub

Loop

line1:

i = i + 1

Resume line2

End Sub

然后按F5运行此宏

如果有字雹凯卖闷母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

---