本文目录一览：
关于excel密码
有时我们为了保护 Excel 文档，会给文档加上密码，如文档查看、只读密码，工作表、工作簿的保护密码等，但是时间久了难免忘记密码，这时就只好进行破解了。下面列举几种常用的破解Excel密码的 方法 ，供各位参考。
excel密码的步骤：
首先我们要明确一个前提，不同类型的密码，破解方法是不一样的，有些密码可能是无法破解的;而Excel文档又分为不同版本(xls和xlsx)，破解方法也有所不同。
温馨提示：破解密码前请先备份原文档。
1、文档查看、只读密码破解
Excel文档的查看、只读密码目前没有什么好的破解办法，只能采用暴力破解，就是指定一个规则，然后一个一个去试。如果你当初设置的密码足够复杂，那就不要做无所谓的挣扎了，建议及早放弃为好。但如果文档十分重要，不计代价也要破解密码，可以尝试一些网站的收费服务，但是不要抱太高的希望。
2、工作表、工作簿的保护密码
根据Excel文档版本不同，工作表、工作簿保护密码的破解方法也不太一样。
(1)xls文档破解方法
对于早期的xls文档(2003及以前)，可以用VBA代码破解。
打开Excel文档，按Alt+F11进入“开发工具”界面，在左边的工程栏(Project)中选定节点“ThisWorkbook”，双击左键，然后把下面的代码复制到右边的代码编辑框中。然后按F5键执行代码开始破解，破解期间会出现两次提示的对话框，都选择“确认”。密码破解完毕之后会出现提示“该工作簿中的工作表密码保护已被全部解除”，这说明工作表或工作簿的保护密码已被成功清除。最后删除“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 "版本 Version 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 = "确保为唯一的?"
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) _
Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
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, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
If Not .ProtectContents Then
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, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR AUTHORS VERSION REPBACK ZHENGLI, vbInformation, HEADER
End Sub
(2)xlsx文档破解方法
从2007版本以后，Excel文档的扩展名从xls变成了xlsx，文档结构也大变样。Xlsx文档本质上其实是一个压缩包，里面包含了许多xml文档，工作表、工作簿的保护密码就保存在这些xml文档中，我们可以用WinRAR等压缩工具将其解压，然后直接修改内容，就可以去掉工作表、工作簿的保护密码了。
具体方法如下：
将文档扩展名修改为zip或rar，然后将其解压。
在解压得到的文件中找到“xl”文件夹，双击打开，“workbook.xml”中即包含工作簿的保护密码，用记事本打开该文档，搜索“workbookProtection”，将带有“workbookProtection”的那一段代码删除即可。代码格式如：
workbookProtection workbookAlgorithmName="SHA-512" workbookHashValue="******" workbookSaltValue="******" workbookSpinCount="100000" lockStructure="1"
另外，“xl\worksheets”文件夹下的“sheet1.xml”、“sheet2.xml”中则保存了各工作表的密码，同样用记事本打开，搜索“sheetProtection”，将带有“sheetProtection”的那一段代码删除即可。
代码格式如：
sheetProtection algorithmName="SHA-512" hashValue="******" saltValue="******" spinCount="100000" sheet="1" formatCells="0" formatColumns="0" formatRows="0" insertColumns="0" insertRows="0" insertHyperlinks="0" deleteColumns="0" deleteRows="0" sort="0" autoFilter="0" pivotTables="0"
最后保存文件，重新压缩为zip格式(注意必须是zip，不能是rar或其他格式)，然后把这个压缩包的后缀重新修改回xlsx。至此，破解完成。
关于excel密码相关 文章 ：
★ Excel设置密码的方法步骤详解
★ 如何在excel表格加密设密码
★ Excel文件密码汇总
★ 如何解锁excel密码的教程
★ excel密码的教程
★ excel破解表格保护密码的方法
★ 如何进入有密码的excel的方法
★ excel如何设置权限密码
★ 破解excel密码的方法图解步骤
var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = ""; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();
破解excel密码的方法图解步骤
有些重要的数据在有密码保护的文档里，却忘记了密码，这个时候就只有破解密码进行读取数据了，下面是由我分享的如何破解excel密码的 方法 ，希望对你有用。
破解excel密码的方法
破解密码步骤1：先用Microsoft Office Excel 2003(可用金山WPS Office 2012 表格代替)创建一个“2003.xls”的普通方式加密Excel文档，然后用Office Password Remover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。破解一个普通加密方式的Excel文档，只需3秒钟!如果你真的不信，可以自己测试一下!
破解excel密码的方法图1
破解密码步骤2：当然，这个3秒破解Excel文档密码是有条件的。第一个条件：Excel文档保存格式必须为古老的“.XLS ”格式(同理，Word文档保存为“.DOC”格式，PPT文档为“.PPT格式”)，第二个条件为加密方式必须为Office 2003或2007(WPS Office 2012)的默认加密方式。
注：要想得到完全的破解文件，需要付费，免费破解的Excel文档只能看到前几行。
破解密码步骤3：如果不付费就破解不了，那就大错特错。要知道，在一台普通配置的电脑上，Excel密码破解工具一秒能测试约88万个密码(需符合以上两个条件)。假设一个6位数的全数字密码，你猜要多长时间来破解?答案是2秒不到(破解时间因测试环境不同而不同)。
破解excel密码的方法图2
破解密码步骤4：WPS表格(用途相当于Excel)虽然提供多种加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法，否则不可能做到无论你设置什么密码，都会被瞬间打开!
七夕天河残局破解图解
七夕天河残局破解图解方法如下：
1、马七退五，黑方不能吃。
2、黑方不管用炮吃还是用象吃，红方车二退一绝杀。
3、马五退三，将六进一。 车三退二，将六退一。
扩展资料
1、象棋，亦作“象碁”、中国象棋（英文名Chinese chess），中国传统棋类益智游戏，在中国有着悠久的历史，先秦时期已有记载。属于二人对抗性游戏的一种，由于用具简单，趣味性强，成为流行极为广泛的棋艺活动。主要流行于华人及汉字文化圈的国家，象棋是中国正式开展的78个体育运动项目之一。是首届世界智力运动会的正式比赛项目之一。
2、此外，高材质的象棋也具有收藏价值，如：高档木材、玉石等为材料的象棋。更有文人墨客为象棋谱写了诗篇，使象棋更具有一种文化色彩。
3、2006年5月20日，象棋经国务院批准列入第一批国家级非物质文化遗产名录。
4、先秦六簙戏用象牙做的棋子。黑白各六枚。《楚辞·招魂》：“菎蔽象棊，有六簙些。”王逸注：“言宴乐既毕，乃设六簙，以菎蔽作箸，象牙为棊，丽而且好也。”洪兴祖补注引鲍宏《博经》：“用碁十二枚，六白，六黑。”
5、古代弈之一种，亦曰象戏。相传战国时已有之。汉刘向《说宛·善说》：“燕则鬭象棋而舞郑女。”其后北周武帝制《象经》，集百僚讲说。据传《象经》有日月星辰之象，以寓兵机。《隋书·经籍志》兵家著录《象经》一卷，题周武帝撰，书亦不传。宋·司马光作有《古局象棋图》，与今象棋不同。
6、现今通行的象棋，相传为唐代牛僧孺所制。刻圆木或牙、骨为棋子三十二枚，红黑各半。两人对弈，红方以帅统仕、相及俥、傌、炮各二，兵五；黑方以将统士、象及车、马、炮各二，卒五。
7、弈时双方轮流行棋，以“将死”或“困毙”对方将（帅）为胜。象棋的棋子设置受到古代两军作战形式的影响，周朝时军队的基本编制“伍”是由5名步兵组成的，作战兵器也由弓、殳、矛、戈、戟5种为一组配合使用。这就是棋阵双方各有5个小卒的缘由。
参考资料：百度百科-象棋