一、excel文件加密怎么解密
您好,现在我来为大家解答以上的问题。excel文件加密怎么解密，excel文件加密怎么解除相信很多小伙伴还不知道,现在让我们一起来看看吧！1...
您好,现在我来为大家解答以上的问题。excel文件加密怎么解密，excel文件加密怎么解除相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉所有程序。
2、为了速度）：新开一Excel，同时按Alt和F11，进入VBA界面。
3、点菜单上的插入，模块，在新出来的窗口粘贴一下代码：Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = ***.getopenfilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", ,"VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName,""))***.screenupdating = Falseline2: On Error GoTo line1***.open FileName, , True, , iMsgBox"Password is"& iExit Subline1: i = i + 1Resume line2***.screenupdating = TrueEnd Sub然后在此界面直接按F5运行此宏。
二、excel工作表如何解密
使用以下步骤进行破解被保护的工作表：
所需材料：记事本、Excel。
一、首先点击被保存的工作薄，按F2重命名，格式改为RAR。
二、这时表格会变为一个压缩包，打开该压缩包，打开后双击打开XL文件夹。
三、然后再双击打开Worksheets文件夹。
四、打开该目录后，把被保护工作表拖至桌面。
五、接着使用记事本打开该文件。
六、打开该文件后，Ctrl+F键打开查找窗口，输入Protection，点击查找下一个。
七、找到后，选中其所在尖括号内的全部内容（包括前后两个尖括号），按Del键删除这串字符，按Ctrl+S保存，保存后关闭记事本。
八、接着把已经修改完的文件再次拖入压缩包当前目录内。
九、弹出的替换文件窗口内点击替换。
十、再次点击压缩包，按F2键重命名，格式改为XLSX表格格式。
十一、这时打开该工作薄，进入审阅选项卡下，撤消工作薄保护按钮消失，破解完成。
三、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=vbNewLine&vbNewLine
ConstAUTHORSAsString=DBLSPACE&vbNewLine&_
"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."&AUTHORS&VERSION
ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_
"workbookstructureorwindows."&DBLSPACE&_
"Proceedingtounprotectsheets."&AUTHORS&VERSION
ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_
"willtakesometime."&DBLSPACE&"Amountoftime"&_
"dependsonhowmanydifferentpasswords,the"&_
"passwords,andyourcomputer'sspecification."&DBLSPACE&_
"Justbepatient!Makemeacoffee!"&AUTHORS&VERSION
ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_
"StructureorWindowsPasswordset."&DBLSPACE&_
"Thepasswordfoundwas:"&DBLSPACE&""&DBLSPACE&_
"Noteitdownforpotentialfutureuseinotherworkbooksby"&_
"thesamepersonwhosetthispassword."&DBLSPACE&_
"Nowtocheckandclearotherpasswords."&AUTHORS&VERSION
ConstMSGPWORDFOUND2AsString="YouhadaWorksheet"&_
"passwordset."&DBLSPACE&"Thepasswordfoundwas:"&_
DBLSPACE&""&DBLSPACE&"Noteitdownforpotential"&_
"futureuseinotherworkbooksbysamepersonwho"&_
"setthispassword."&DBLSPACE&"Nowtocheckandclear"&_
"otherpasswords."&AUTHORS&VERSION
ConstMSGONLYONEAsString="Onlystructure/windows"&_
"protectedwiththepasswordthatwasjustfound."&_
ALLCLEAR&AUTHORS&VERSION&REPBACK
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,HEADER&nbs
