本文目录一览：
excel密码怎么破解？
操作方法：
01
打开excel工作表。
02
然后在Excel表中找到【视图】。
03
点开【宏】。
04
然后选择【录制宏】。
05
接着会弹出一个窗口，点击【确定】。
06
在此点开【宏】，点击【停止录制】。
07
然后再点击【宏】，弹出窗口点击【编辑】。
08
然后点击【模板1】，并清空右边红框里的代码，如下图。
09
然后把破解代码复制粘贴进入空白处（破解代码小编将在文章最底部分享给大家）。
10
然后在打开【查看宏】，点击执行破解代码。
11
会弹出一个框，是英文的，看不懂没关系，点击确定，解密需要一段时间。
12
破解代码:
PublicSubAllInternalPasswords()
'Breaksworksheetandworkbookstructurepasswords.BobMcCormick
'probablyoriginatorofbasecodealgorithmmodifiedforcoverage
'ofworkbookstructure/windowspasswordsandformultiplepasswords
'
'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)
'Modified2003-Apr-04byJEM:Allmsgstoconstants,and
'eliminateoneExitSub(Version1.1.1)
'RevealshashedpasswordsNOToriginalpasswords
ConstDBLSPACEAsString=vbNewLinevbNewLine
ConstAUTHORSAsString=DBLSPACEvbNewLine_
"AdaptedfromBobMcCormickbasecodeby"_
"NormanHarkerandJEMcGimpsey"
ConstHEADERAsString="AllInternalPasswordsUserMessage"
ConstVERSIONAsString=DBLSPACE"Version1.1.12003-Apr-04"
ConstREPBACKAsString=DBLSPACE"Pleasereportfailure"_
"tothemicrosoft.public.excel.programmingnewsgroup."
ConstALLCLEARAsString=DBLSPACE"Theworkbookshould"_
"nowbefreeofallpasswordprotection,somakesureyou:"_
DBLSPACE"SAVEITNOW!"DBLSPACE"andalso"_
DBLSPACE"BACKUP!,BACKUP!!,BACKUP!!!"_
DBLSPACE"Also,rememberthatthepasswordwas"_
"putthereforareason.Don'tstuffupcrucialformulas"_
"ordata."DBLSPACE"Accessanduseofsomedata"_
"maybeanoffense.Ifindoubt,don't."
ConstMSGNOPWORDS1AsString="Therewerenopasswordson"_
"sheets,orworkbookstructureorwindows."AUTHORSVERSION
ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"_
"workbookstructureorwindows."DBLSPACE_
"Proceedingtounprotectsheets."AUTHORSVERSION
ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"_
"willtakesometime."DBLSPACE"Amountoftime"_
"dependsonhowmanydifferentpasswords,the"_
"passwords,andyourcomputer'sspecification."DBLSPACE_
"Justbepatient!Makemeacoffee!"AUTHORSVERSION
ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"_
"StructureorWindowsPasswordset."DBLSPACE_
"Thepasswordfoundwas:"DBLSPACE""DBLSPACE_
"Noteitdownforpotentialfutureuseinotherworkbooksby"_
"thesamepersonwhosetthispassword."DBLSPACE_
"Nowtocheckandclearotherpasswords."AUTHORSVERSION
ConstMSGPWORDFOUND2AsString="YouhadaWorksheet"_
"passwordset."DBLSPACE"Thepasswordfoundwas:"_
DBLSPACE""DBLSPACE"Noteitdownforpotential"_
"futureuseinotherworkbooksbysamepersonwho"_
"setthispassword."DBLSPACE"Nowtocheckandclear"_
"otherpasswords."AUTHORSVERSION
ConstMSGONLYONEAsString="Onlystructure/windows"_
"protectedwiththepasswordthatwasjustfound."_
ALLCLEARAUTHORSVERSIONREPBACK
Dimw1AsWorksheet,w2AsWorksheet
DimiAsInteger,jAsInteger,kAsInteger,lAsInteger
DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger
Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger
DimPWord1AsString
DimShTagAsBoolean,WinTagAsBoolean
Application.ScreenUpdating=False
WithActiveWorkbook
WinTag=.ProtectStructureOr.ProtectWindows
EndWith
ShTag=False
ForEachw1InWorksheets
ShTag=ShTagOrw1.ProtectContents
Nextw1
IfNotShTagAndNotWinTagThen
MsgBoxMSGNOPWORDS1,vbInformation,HEADER
ExitSub
EndIf
MsgBoxMSGTAKETIME,vbInformation,HEADER
IfNotWinTagThen
MsgBoxMSGNOPWORDS2,vbInformation,HEADERnbs
excel表格打开密码破解的方法
在 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秒钟!如果你真的不信，可以自己测试一下!
破解打开密码步骤2：当然，这个3秒破解Excel文档密码是有条件的。第一个条件：Excel文档保存格式必须为古老的“.XLS ”格式(同理，Word文档保存为“.DOC”格式，PPT文档为“.PPT格式”)，第二个条件为加密方式必须为Office 2003或2007(WPS Office 2012)的默认加密方式。
注：要想得到完全的破解文件，需要付费，免费破解的Excel文档只能看到前几行。
破解打开密码步骤3：如果不付费就破解不了，那就大错特错。要知道，在一台普通配置的电脑上，Excel密码破解工具一秒能测试约88万个密码(需符合以上两个条件)。假设一个6位数的全数字密码，你猜要多长时间来破解?答案是2秒不到(破解时间因测试环境不同而不同)。
破解打开密码步骤4：WPS表格(用途相当于Excel)虽然提供多种加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法，否则不可能做到无论你设置什么密码，都会被瞬间打开!
excel表格打不开需要密码的解决方法
在网络上下载的数据文档或许有一些是需要进行密码验证的，这个时候如果没有密码不能打开文档，因此需要密码破解来完成打开文档。接下来是我为大家带来的excel表格打不开需要密码的解决 方法 ，供大家参考。
excel表格打不开需要密码的解决方法：
打不开有密码解决步骤1：建一个EXCEL文件“BOOK1”，在工具栏空白位置，任意右击，选择Visual Basic项，弹出Visual Basic工具栏：
打不开有密码解决步骤2：在Visual Basic工具栏中，点击“录制”按钮，弹出“录制新宏”对话框，选择“个人宏工作簿”：
打不开有密码解决步骤3：选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：
打不开有密码解决步骤4：在Visual Basic工具栏中，点击“编辑”按钮：
打不开有密码解决步骤5：点击“编辑”按钮后，弹出如下图的编辑界面：
找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
双击模块1-将右边代码内容清空
打不开有密码解决步骤6：复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1”
打不开有密码解决步骤7：运行需要解密的“EXCEL文件”，在Visual Basic工具栏中，点击“运行”按钮
打不开有密码解决步骤8：点击“运行”按钮后，弹出“宏”对话框，
点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
打不开有密码解决步骤9：运行“PERSONAL.XLS!工作保护密码破解”这个宏后，
如下图示意就可以 解除工作表的密码保护了
(这个图，如果工作表中有多组不同密码，
每解开一组，就会提示一次，也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
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 " hfhzi3—戊冥 整理"
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
excel表文档打开密码忘记了,怎么办？
如果您忘记了Excel文档的打开密码，可以考虑以下几种方法：
1，尝试常见的密码：如果您记得密码的某些部分或者可能使用过一些常见的密码，可以尝试输入这些密码来解锁Excel文档。
2，使用VBA宏：通过使用VBA宏代码可以帮助您破解Excel文件密码。您可以在网上搜索相应的代码，并将其复制到新的Excel文档的VBA编辑器中来解除原始Excel文档的密码保护。不过需要注意的是，这种方法需要您有一定的编程基础。
3，使用密码破解软件：您可以在网上搜索一些Excel密码破解软件来解除Excel文档的密码保护。但是需要注意的是，使用这种方法时需要格外小心，因为某些破解软件可能会包含恶意软件或病毒，造成不必要的损失。
4，使用在线密码破解服务：一些在线服务可以帮助您破解Excel文档的密码，如LostMyPass、OnlineHashCrack等，但是同样需要注意安全问题，选择可靠的服务商。
需要提醒的是，以上方法仅限于在您拥有该Excel文档的合法授权的情况下使用，任何非法行为都是不被允许的。
excel解密表格的方法
Excel 中已经加密的文档具体该如何操作才能实现解密的效果呢?接下来是我为大家带来的excel解密表格的 方法 ，供大家参考。
excel解密表格方法：
解密表格步骤1：解压Office Password Remover 文件压缩包到桌面;
解密表格步骤2：双击打开文件中的exe可执行文件;
解密表格步骤3：点击文件名旁边的按键选择需要解密的表格文档;
解密表格步骤4：找到加密文件的路径选中并打开;
解密表格步骤5：一键移除密码;
解密表格步骤6：出现信息提示后确定，直到完成解密。
看了excel解密表格的方法还看了：
1. excel2007表格解密的方法
2. excel表格打开密码解除的方法
3. excel解除表格保护的方法
4. excel解除表格保护密码的方法
5. excel表格内进行密码解密的教程
6. excel表格密码解除教程
7. 如何解除excel密码的方法