如何解除excel表格的密码？

excel表格锁定了，不记得密码了，可以按照下面的方法进行解锁：

1.首先打开设置了工作表保护的表格，可以看到，当我们试图编辑时，会d出这样的对话框。

2.单击文件——选项——自定义功能区——在“开发工具”前打勾——确定。

3.单击工具栏——开发工具——宏，新建宏。然后保存。

4.保存之后，运行该宏，即可d出显示密码的窗口。单击确定，然后输入密码即可实现解锁。

*** 作方法：

01

打开excel工作表。

02

然后在Excel表中找到【视图】。

03

点开【宏】。

04

然后选择【录制宏】。

05

接着会d出一个窗口，点击【确定】。

06

在此点开【宏】，点击【停止录制】。

07

然后再点击【宏】，d出窗口点击【编辑】。

08

然后点击【模板1】，并清空右边红框里的代码，如下图。

09

然后把破解代码复制粘贴进入空白处（破解代码小编将在文章最底部分享给大家）。

10

然后在打开【查看宏】，点击执行破解代码。

11

会d出一个框，是英文的，看不懂没关系，点击确定，解密需要一段时间。

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

使用以下步骤进行破解被保护的工作表：

所需材料：记事本、Excel。

一、首先点击被保存的工作薄，按F2重命名，格式改为RAR。

二、这时表格会变为一个压缩包，打开该压缩包，打开后双击打开XL文件夹。

三、然后再双击打开Worksheets文件夹。

四、打开该目录后，把被保护工作表拖至桌面。

五、接着使用记事本打开该文件。

六、打开该文件后，Ctrl+F键打开查找窗口，输入Protection，点击查找下一个。

七、找到后，选中其所在尖括号内的全部内容（包括前后两个尖括号），按Del键删除这串字符，按Ctrl+S保存，保存后关闭记事本。

八、接着把已经修改完的文件再次拖入压缩包当前目录内。

九、d出的替换文件窗口内点击替换。

十、再次点击压缩包，按F2键重命名，格式改为XLSX表格格式。

十一、这时打开该工作薄，进入审阅选项卡下，撤消工作薄保护按钮消失，破解完成。

---