Excel密码破解工具绿色破解版v1.0

Excel密码破解工具是一款可一键破解Word文档、 Excel文档、 Access数据库、 Outlook VBA宏文件、Schedule+文件、 Mail文件等文件的密码破解。软件可破解2.0版本到2016版本密码保护下任何Office文档，具体包括Word、Excel、Access、Outlook等文档格式。并拥有极其先进的解密技术，包括暴力破解、字典攻击、单词攻击、掩码破解、组合破解、混合破解等六种强大先进的不同解密方式，可大程度的帮助您对文档进行解密。同时软件为了进一步提高密码恢复速度，可同时运作多个CPU/GPU处理器内核，部分或全部CPU/GPU内核可以被指派完成密码恢复任务。此外，软件支持当前所有版本的excel文档，并拥有多种破解方式供用户只有挑选，破解速度非常快，一键即可完成破解。
Excel密码破解工具

软件功能

1、Office文档破解专家
可破解2.0版本到2016版本密码保护下任何Office文档，具体包括Word、Excel、Access、Outlook等文档格式。
2、先进的解密技术
暴力破解、字典攻击、单词攻击、掩码破解、组合破解、混合破解等六种强大先进的不同解密方式，大程度的帮助您对文档进行解密。
3、更快的获取速度
为进一步提高密码恢复速度，可同时运作多个CPU/GPU处理器内核，部分或全部CPU/GPU内核可以被指派完成密码恢复任务。

软件特点

1、可以支持当前所有版本的excel文档
2、拥有多种破解方式供用户只有挑选
3、破解速度非常快，只需要一会儿就完成
4、不会对文档造成破坏，非常安全可靠

支持破解的部分文件

Microsoft Word 文档
Microsoft Excel 文档
Microsoft Access 数据库
Microsoft Outlook 个人存储文件
Microsoft Outlook VBA 宏文件
Microsoft Money 数据库
Microsoft Schedule+ 文件
Microsoft Backup 文件
Microsoft Mail 文件
Viso 文件
Microsoft PowerPoint 演示
Microsoft Project 文件
Microsoft Pocket Excel 文件
Microsoft OneNote 文件

各种密码解锁方法

1、工作簿保护密码
工作簿保护后（审阅 - 保护工作簿）
在工作表标签右键菜单中点击'查看代码“打开一个新的窗口(Visual baisc 编辑器)，插入-模块，然后把下面的代码粘贴到右侧的空白窗口。
代码请输入内容
Sub test()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub
把光标放在代码中，点工具栏中的运行按钮，运行上面代码后，会把原文件另存为一个新的Excel文件，这时只需要重新保存即可。工作簿密码在新文件中已取消。

2、工作簿打开密码
加密方法：文件-信息-保护工作簿
加密过的工作簿，打开时候，只有输入密码才能看到工作簿内容。

破解方法：软件破解 Accent OFFICE Password Recovery
3、工作表保护密码
写保护方法：Excel工作簿保护后（审阅 - 保护工作表）

破解方法：
软件破解 Accent OFFICE Password Recovery
秒破！（成功率90%以上）
可能给出的密码和实际的密码不一致（编码问题），但是填入以后，绝对能解除密码
3、VBAProject工程密码
加密方法：VBE工具-- VBAProject工程属性

解密方法：
将如下代码写入任意excel模块运行即可破解：（成功率90）
Private Sub VBAPassword2()
你要解保护的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