大家好，今天小编来为大家解答Excel文件密码解锁大全这个问题，很多人还不知道，现在让我们一起来看看吧！
以下某些操作很难撤消。为了防止文件被破坏，建议在破解密码之前备份原始文件。
1. 文件查看、只读密码破解
Excel文件的查看和只读密码目前只能通过暴力破解，这意味着要一一尝试数千个密码。它消耗大量资源，并且根据密码的长度和复杂性，有时可能无法成功破解它。目前我还没有找到更好的免费工具来破解此类密码。我一定会及时推荐的。这里我介绍两个可以收费破解此类密码的网站。
http://www.password-online.com/index.php
http://www.decryptum.com/
上传前请检查文件是否包含相对私密的内容。
2. 工作表、工作簿保护密码破解
该密码主要用于防止数据表的表格、格式、内容、公式等被修改或删除。当工作表的单元格受到保护时，当您尝试编辑或删除这些单元格时，您将收到提示“您尝试更改的单元格或图表位于受保护的工作表中”，告诉您编辑失败。当工作簿受到保护时，您无法添加或删除工作表。根据文件后缀的不同，破解此类密码的方法也有所不同：
1) 后缀为 .xls 的文件
用Excel打开工作簿，然后按Alt+F11进入“开发工具”界面，如下图：
图片在左侧项目栏中选择节点“ThisWorkbook”，双击左侧按钮，然后将以下代码复制到右侧代码编辑框中
Public Sub工作表保护密码破解()
Const DBLSPACE As String=vbNewLine vbNewLine
Const AUTHORS As String=DBLSPACE vbNewLine_
“作者：McCormick JE McGimpsey”
Const HEADER As String="工作表保护密码破解"
Const VERSION As String=DBLSPACE "版本版本1.1.1"
Const REPBACK As String=DBLSPACE ""
Const ZHENGLI As String=DBLSPACE ""
Const ALLCLEAR As String=DBLSPACE "此工作簿中所有工作表的密码保护已解除！" DBLSPACE "请记得单独保存"_
DBLSPACE "注意：不要在不适当的地方使用，尊重他人的劳动成果！ "
Const MSGNOPWORDS1 As String="此文件表中没有加密"
Const MSGNOPWORDS2 As String="此文件表2 中没有加密"
Const MSGTAKETIME As String="解密需要一些时间，请耐心等待！" DBLSPACE "按确定开始破解！"
Const MSGPWORDFOUND1 As String="密码重组为：" DBLSPACE "$$" DBLSPACE _
"如果文件表有不同的密码，则将搜索并修改并清除下一组密码"
Const MSGPWORDFOUND2 As String="密码重组为：" DBLSPACE "$$" DBLSPACE _
“如果文件表有不同的密码，则将搜索并释放下一组密码”
Const MSGONLYONE As String="保证唯一？"
调暗w1 作为工作表，w2 作为工作表
Dim i 作为整数，j 作为整数，k 作为整数，l 作为整数
Dim m 作为整数，n 作为整数，i1 作为整数，i2 作为整数
Dim i3 作为整数，i4 作为整数，i5 作为整数，i6 作为整数
将PWord1 变暗为字符串
Dim ShTag 作为布尔值，WinTag 作为布尔值
应用程序.ScreenUpdating=False
使用活动工作簿
WinTag=.ProtectStructure 或.ProtectWindows
结束于
ShTag=假
对于工作表中的每个w1
ShTag=ShTag 或w1.ProtectContents
下一个w1
如果不是ShTag 也不是WinTag 那么
MsgBox MSGNOPWORDS1、vbInformation、标头
退出子程序
结束如果
MsgBox MSGTAKETIME、vbInformation、HEADER
如果不是WinTag 那么
别的
出错时继续下一步
Do "dummy do 循环
对于i=65 至66: 对于j=65 至66: 对于k=65 至66
对于l=65 至66: 对于m=65 至66: 对于i1=65 至66
对于i2=65 至66: 对于i3=65 至66: 对于i4=65 至66
对于i5=65 至66: 对于i6=65 至66: 对于n=32 至126
使用活动工作簿
.取消保护Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) _
Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)
如果.ProtectStructure=False 并且_
.ProtectWindows=False 那么
PWord1=Chr(i) Chr(j) Chr(k) Chr(l) _
Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, 标头
退出Do "绕过所有.下一个
结束如果
结束于
下一页： 下一页： 下一页： 下一页： 下一页： 下一页
下一页： 下一页： 下一页： 下一页： 下一页： 下一页
循环直到为真
出错时转到0
结束如果
如果WinTag 而不是ShTag 那么
MsgBox MSGONLYONE、vbInformation、HEADER
退出子程序
结束如果
出错时继续下一步
对于工作表中的每个w1
"尝试使用PWord1 清除
w1.取消保护PWord1
下一个w1
出错时转到0
ShTag=假
对于工作表中的每个w1
"检查所有清除的ShTag，如果没有，则触发为1。
ShTag=ShTag 或w1.ProtectContents
下一个w1
如果ShTag 则
对于工作表中的每个w1
与w1
如果.ProtectContents 那么
出错时继续下一步
Do "Dummy do 循环
对于i=65 至66: 对于j=65 至66: 对于k=65 至66
对于l=65 至66: 对于m=65 至66: 对于i1=65 至66
对于i2=65 至66: 对于i3=65 至66: 对于i4=65 至66
对于i5=65 至66: 对于i6=65 至66: 对于n=32 至126
.取消保护Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
如果不是.ProtectContents 那么
PWord1=Chr(i) Chr(j) Chr(k) Chr(l) _
Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, 标头
"通过尝试其他工作表来找到密码
对于工作表中的每个w2
w2.取消保护PWord1
下一个w2
退出Do "绕过所有.下一个
结束如果
下一页： 下一页： 下一页： 下一页： 下一页： 下一页
下一页： 下一页： 下一页： 下一页： 下一页： 下一页
循环直到为真
出错时转到0
结束如果
结束于
下一个w1
结束如果
MsgBox ALLCLEAR 作者版本回复ZHENGLI, vbInformation, HEADER
End Sub完成后是这样的：
然后点击上图中的小三角按钮（蓝色圆圈标记）即可执行破解密码的代码。如果Excel 提示您宏被禁用并且代码无法运行，请在“文件”菜单中保存文件，然后关闭Excel。重新打开Excel并启用宏，按Alt+F11返回此界面，单击小三角按钮再次破解密码。
破解过程中会出现两个提示对话框。两次都选择“确认”。密码破解后，会出现如下窗口：
这表明工作表或工作簿的密码保护已成功清除。最后按Alt+F11返回“开发工具”界面，删除“ThisWorkbook”节点中的代码，并保存工作表。
后缀为 .xlsx 或 .xlsm 的文件
这里我们以.xlsx文件为例。首先，将文件后缀从.xlsx更改为.rar或.zip，然后使用压缩软件，例如WinRar、7-Zip打开压缩文件。
工作表被锁定：进入文件夹xlworksheets，找到锁定的工作表，如sheet1，如下图：
图片选择这个文件“sheet1.xml”，右键选择记事本进行编辑。在记事本中找到该字符串的内容，如下图蓝色所示：
图片工作簿被锁定：进入文件夹xl并找到文件“workbook.xml”。右键，选择记事本编辑，在记事本中搜索该字符串的内容，如下图蓝色所示：
删除图像后，在记事本中选择“文件”-“保存”选项保存文件。记事本保存完成后，压缩软件会提示你此文件已被更改。你想更新吗？然后选择“是”。
关闭压缩软件并将文件后缀从.zip或.rar更改回.xlsx。用Excel打开.xlsx文件，你会发现工作表或工作簿的密码保护已被清除。
3. VBA 工程密码破解
VBA工程密码为宏保护密码，其破解方法也根据文件后缀的不同而不同：
1) 后缀为 .xls 的文件
--xlxm 文件另存为xls 文件
打开Excel，新建一个文档，按Alt+F11进入“开发工具”界面，如下图：
图片在左侧项目栏中选择节点“ThisWorkbook”，双击左侧按钮，然后将以下代码复制到右侧代码编辑框中
Private Sub VBAPassword() "要取消保护的Excel 文件的路径
Filename=Application.GetOpenFilename("Excel文件(*.xls *.xla *.xlt),*.xls;*.xla;*.xlt", "VBA破解")
如果Dir(文件名)="" 那么
MsgBox "未找到相关文件，清除并重置。 "
退出子程序
别的
FileCopy 文件名，文件名".bak" "备份文件。
结束如果
将GetData 变暗为字符串* 5
打开二进制文件名#1
调暗CMG 只要
暗淡DPBo 只要
对于i=1 至LOF(1)
获取#1，i，获取数据
如果GetData="CMG=""" 则CMGs=i
如果GetData="[Host" 则DPBo=i - 2: 退出
下一个
如果CMG=0 那么
MsgBox "请先设置VBA编码的保护密码.", 32, "提示"
退出子程序
结束如果
暗淡圣作为字符串* 2
暗淡s20 作为字符串* 1
"获取0D0A十六进制字符串
获取#1，CMGs - 2，圣
"获取20的十六进制字符串
获得#1，DPBo + 16，s20
"替换机器码的加密部分
对于i=CMG 至DPBo 第2 步
把#1，i，St
下一个
"添加不匹配的符号
如果(DPBo - CMG) Mod 20 那么
把#1，DPBo + 1，s20
结束如果
MsgBox "文件解密成功.", 32, "提示"
关闭#1
End Sub完成后是这样的：
点击上图中的小三角按钮（蓝色圆圈标记）即可执行代码。在系统弹出的“文件选择对话框”中，选择你想要破解密码的Excel文件，选择后点击“打开”。过了一会儿，Excel提示“文件解密成功”，这意味着所选文件的VBA工程密码已被清除。
2) 后缀为 .xlsm 的文件
将文件后缀由.xlsm更改为.rar或.zip，然后使用压缩软件解压压缩文件。打开解压后的文件，在xl文件夹中找到文件vbaProject.bin，如下图：
image使用二进制文件编辑软件，如XVI32（可直接下载使用，无需安装）。打开vbaProject.bin文件，然后在其中搜索DPB，如下图：
image将DPB替换为DPx，如下：
image--将CMG="XXXXXXX."的CMG关键字改为CMx,--
--将DBP="XXXXXXX."的DBP关键字改为DBx,--
--将GC="XXXXXXX."的GC关键字改为Gx,--
让Excel无法识别这三项！保存一下吧！
用Excel打开这个文件，忽略错误信息，进入VBA编辑器，密码就没有了！
执行保存操作以修复错误消息。
OK，本文到此结束，希望对大家有所帮助。
【Excel文件密码解锁大全】相关文章：
2.米颠拜石
3.王羲之临池学书
8.郑板桥轶事十则
用户评论
我感觉这种东西不太好使吧？破别人的Excel文件好像不太道德吧？
有9位网友表示赞同！
这个“全”指的是什么呀？是不是说所有EXCEL文件的密码都能破解？
有20位网友表示赞同！
学习一下编程的工具，这样可能比破解有用啊。
有11位网友表示赞同！
我以前也有试过网上的破解教程，结果都是坑人钱的垃圾...
有17位网友表示赞同！
这玩意儿靠谱吗？想试试看我的文档...
有20位网友表示赞同！
有没有什么更正规的方法打开文件呢？
有13位网友表示赞同！
有时候忘记密码确实很头疼，希望能有个安全可靠的方法解决。
有11位网友表示赞同！
我之前就碰到过这种情况，想要找软件来破解密码，但没找到合适的。
有17位网友表示赞同！
不知道这个方法好用吗？我的好朋友的文件被锁死了...
有20位网友表示赞同！
现在很多软件都有保护机制了，感觉破解不太可能成功的话...
有14位网友表示赞同！
我觉得还是自己记住密码比较保险啊。
有9位网友表示赞同！
这种方法是不是会对电脑有影响呢？
有20位网友表示赞同！
看到这个标题就想起了小时候为了玩游戏破解的游戏。
有14位网友表示赞同！
其实很多时候，忘记密码直接联系软件的开发者就行了。他们可以帮你恢复权限的。
有6位网友表示赞同！
有没有什么其他类型的工具推荐可以用来保护文档呢？
有5位网友表示赞同！
感觉这种工具可能被一些不法分子利用...
有14位网友表示赞同！
我想学习一下Excel的加密解密方法，这样才能更好地保护我的文件。
有9位网友表示赞同！
最近看到很多关于网络安全的信息，感觉这个话题越来越重要了。
有9位网友表示赞同！
我希望这些破解软件能够合法安全的使用，不要给用户造成损失...
有11位网友表示赞同！
感觉学习一门安全技术更实用也更能保护自己！
有11位网友表示赞同！