excel加密文件忘记密码应该怎么解密？

如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：\x0d\x0a新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这世派一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码\x0d\x0aSub crack()\x0d\x0aDim i As Long\x0d\x0ai = 1\x0d\x0aline2:\x0d\x0aOn Error GoTo line1\x0d\x0aDo While True\x0d\x0aWorkbooks.Open "1.xls", , , , i\x0d\x0aWorkbooks("1.xls").Close 0\x0d\x0aMsgBox "Password is" &i\x0d\x0aExit Sub\x0d\x0aLoop\x0d\x0aline1:\x0d\x0ai = i + 1\x0d\x0aResume line2\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a然后运行此宏（灶早回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）\x0d\x0a\x0d\x0a如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。\x0d\x0a\x0d\x0a若搜辩贺果还有读写密码，且与打开密码一样，将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i

在 Excel 中经常碰到一些加密了的文档，如果觉得每次打开都嫌麻烦就需要把密码给撤销了。下面是由我分享的如何解除excel加密的 方法 ，希望对你有用。

解除excel加密的方法

解除加密步骤1：在excel里点击文件，另存为命令。

解除加密步骤2：为文件指定保存地址。

解除加密步骤3：指定好保存地址和文件名后，点击工具常规选项。

解除excel加密的方法图1

解除加密步骤4：将打开权限密码或者修改权限密码删除，确定，然后保存即可。

解除excel加密的方法图2

EXCEL中求某一区域内不重复的数据个数

例如求A1:A100范围内不重复数据的个数，某个数重复多次出现只算一个。有两种计算方法：

一是利用数组公式：

=SUM(1/COUNTIF(A1:A100,A1:A100))

输入完公式后按Ctrl+Shift+Enter键,让它自动加上数组公式符号"{}"。

二是利用乘搏颂积求和函数：

=SUMPRODUCT(1/COUNTIF(A1:A100,A1:A100))

excel在已有的单元格中批量加入一段固定字符的方法

例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人基坦郑的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力：

1)假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列

2)在B2单元格写入： ="13" &信型 A2 后回车

*** 作方法：

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

---