一、excel加密文件如何解密
本视频演示机型：戴尔-成就3690，适用系统：Windows10，软件版本：Excel2021，打开一个【excel】表格；
可以看到该文件需要输入密码才可以打开，那么要怎么将文件解密呢，输入正确的密码后，进入excel表格界面，选择左上角的【文件】，选择左侧工具栏中【信息】选项；
点击信息界面下方的【保护工作簿】，在下方出现的选项中，选择【用密码进行加密】，将此密码删除，点击下方的【确定】即可将这个文件解密，我们关闭该文件，打开后，即可看到不需要输入密码，本期视频就到这里，感谢观看。
二、excel表格被病毒加密了怎么解密
如图所示，我们看到显示启用了宏的工作簿，这个只是说表示你这个表格里面启用了宏定义。通常实现的功能都是加减应用。或者是通过引用其他数据的办法，跨表格实现协同工作。
这样的显示并不是说存放了一段时间之后，而其用了这个功能。而是之前你可能没有发现，或者是没有在设置里面打开对应的功能，导致他没有显示出来而已。
如果一旦中了相关的病毒，相关的数据恢复起来比较困难。其中一种比较可靠的方案和方法就是通过检查数据是否出现问题。如果没有问题，则可以直接复制新建新的纯文本表格。如果数据出现了问题，则需要检查备份和缓存文件，也就是在当初做表格的电脑上，是否能查询到缓存保存的相关备份文件。通常文件与现在的时间会相差一定的间隔。
三、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
