无论是excel密码破解软件还是怎样破解EXCEL加密文件,它们都是当前热门话题。如果你对它们感到好奇,那么请跟随小编的脚步,一起来揭开它们的秘密吧!
excel密码怎么破解
取消excel密码保护:
工具/原料:联想拯救者R7000、Windows 10、Excel 2019
1、打开加密excel
打开一个加密的excel,输入密码,点击确定。
2、打开信息页面
点击文件,点击信息。
3、进入加密选项页面
点击保护工作簿,点击用密码进行加密。
4、删除密码
将密码删除,点击确定。
5、返回页面
点击返回。
6、保存并再次打开
点击保存按钮,再次打开即可取消密码了。
2016excel的密码如何破解
第一种方法就是按住快捷键ALT+F11,然后切换出VBA编辑窗口,如图一;在该窗口的左侧我们的选择那个忘记密码的工作表,比如sheet 1...
请点击输入图片描述
请点击输入图片描述
然后我们复制以下代码
“Sub Pojie()ActiveSheet.Protect AllowFiltering:=True: ActiveSheet.UnprotectEnd Sub”,双击刚才选中的sheet 1以后,在编辑窗口我们输入刚才复制的那段代码;
请点击输入图片描述
接下来依次点击“运行”-“运行宏”,在弹出的宏对话框,我们再次点击“运行”,此时原先加密的工作表就被解除密码了,重新打开以后我们会发现可以直接进去;
请点击输入图片描述
请点击输入图片描述
另外一种方法就是将其更改为压缩文件,将之前.xlsx后缀更改为.zip,然后双击该压缩文件,我们依次找到“xl”-“worksheets”文件夹,如下图...
请点击输入图片描述
请点击输入图片描述
进入到该文件夹以后,鼠标右键点击加密的那一个工作表“打开”,此时系统会以记事本的形式将其打开,如图二...
请点击输入图片描述
请点击输入图片描述
接着以上,我们在记事本里按照Ctrl+F切换出查找,然后输入“protection”,然后我们将记事本中带有protection的那一段代码以及两边的<>符号全部删除;
请点击输入图片描述
请点击输入图片描述
保存为新的记事本以后,我们依旧将之前的工作簿后缀更改为.xlsx,此时被加密的文件就变成了可编辑状态,也就是说密码被破解了,如图所示...
请点击输入图片描述
电脑破解excel工作表密码的方法
excel是办公软件Microsoftoffice的组件之一,win7正式版系统电脑在工作中使用excel工作表的时候,一些重要的文件我们都会给它设置上密码。但是时间久了,容易把密码忘记了,那么有什么办法可以破解excel工作表密码呢?接下去我们一起分享电脑破解excel工作表密码的方法。
具体方法如下:
1、打开excel工作表;
2、然后在Excel表中找到【视图】;
3、点开【宏】;
4、然后选择【录制宏】;
5、接着会弹出一个窗口,点击【确定】;
6、在此点开【宏】,点击【停止录制】;
7、然后再点击【宏】,弹出窗口点击【编辑】;
8、然后点击【模板1】,并清空右边红框里的代码;
9、然后把破解代码复制粘贴进入空白处;
10、然后在打开【查看宏】,点击执行破解代码;
11、会弹出一个框,是英文的,看不懂没关系,点击确定,解密需要一段时间;
破解代码:
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,HEADER
Else
OnErrorResumeNext
Do'dummydoloop
Fori=65To66:Forj=65To66:Fork=65To66
Forl=65To66:Form=65To66:Fori1=65To66
Fori2=65To66:Fori3=65To66:Fori4=65To66
Fori5=65To66:Fori6=65To66:Forn=32To126
WithActiveWorkbook
.UnprotectChr(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=FalseAnd_
.ProtectWindows=FalseThen
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)
MsgBoxApplication.Substitute(MSGPWORDFOUND1,_
"",PWord1),vbInformation,HEADER
ExitDo'Bypassallfor...nexts
EndIf
EndWith
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
LoopUntilTrue
OnErrorGoTo0
EndIf
IfWinTagAndNotShTagThen
MsgBoxMSGONLYONE,vbInformation,HEADER
ExitSub
EndIf
OnErrorResumeNext
ForEachw1InWorksheets
'AttemptclearancewithPWord1
w1.UnprotectPWord1
Nextw1
OnErrorGoTo0
ShTag=False
ForEachw1InWorksheets
'ChecksforallclearShTagtriggeredto1ifnot.
ShTag=ShTagOrw1.ProtectContents
Nextw1
IfShTagThen
ForEachw1InWorksheets
Withw1
If.ProtectContentsThen
OnErrorResumeNext
Do'Dummydoloop
Fori=65To66:Forj=65To66:Fork=65To66
Forl=65To66:Form=65To66:Fori1=65To66
Fori2=65To66:Fori3=65To66:Fori4=65To66
Fori5=65To66:Fori6=65To66:Forn=32To126
.UnprotectChr(i)Chr(j)Chr(k)_
Chr(l)Chr(m)Chr(i1)Chr(i2)Chr(i3)_
Chr(i4)Chr(i5)Chr(i6)Chr(n)
IfNot.ProtectContentsThen
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)
MsgBoxApplication.Substitute(MSGPWORDFOUND2,_
"",PWord1),vbInformation,HEADER
'leveragefindingPwordbytryingonothersheets
ForEachw2InWorksheets
w2.UnprotectPWord1
Nextw2
ExitDo'Bypassallfor...nexts
EndIf
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
LoopUntilTrue
OnErrorGoTo0
EndIf
EndWith
Nextw1
EndIf
MsgBoxALLCLEARAUTHORSVERSIONREPBACK,vbInformation,HEADER
EndSub
上述就是电脑破解excel工作表密码的方法,希望此教程内容能够帮助到大家。
怎样破解EXCEL加密文件
长时间不使用工作表而忘记自己最开始设置的密码,这个时候我们可以借助第三方工具进行破解。
首先在电脑上下载安装疯师傅excel解密助手,然后再根据下面的情况进行操作。
第一种:解除excel限制密码
1、选择模式
打开疯师傅Excel解密助手,选择“移除限制”模式。
2、选择Excel文件
添加需要移除限制密码的Excel文件,添加以后单击“移除”按钮。
3、解除限制
只需等待几秒,软件即可成功移除文件的限制密码。
第二种:找回原来的excel打开密码
1、选择模式
打开疯师傅Excel解密助手,选择“恢复密码”。
2、选择Excel文件和破解方法
点击加号按钮,选择一个您想要恢复密码的Excel文件。
添加Excel文件后选择一种最适合您的恢复方法,软件为您提供4种方法:
组合破解
组合破解方法会随机组合您所选择的数字和字符进行破解。
字典破解
字典破解适合简单的组合密码,软件将在内置字典种为您寻找密码,您也可以定制一本专属字典进行密码恢复。
掩码破解
如果您记得一部分密码信息,可以使用该方法。您可以配置一些参数,例如密码长度,前缀、后缀、数字、大小写等信息。
暴力破解
该方法无需提供任何密码信息,软件会自动尝试所有可能的密码组合,所以会花费较长的时间,您只需要耐心等待即可。
3、恢复Excel密码
当您选择好破解方法以后,点击“恢复”按钮。软件就开始破解恢复你的Excel密码。根据您选择的不同恢复方式,耗费的恢复时间也会不同。当密码被找回后,它将会显示在软件界面上,您可以点击“复制”,复制恢复密码来解锁您的Excel文件。
不管使用哪种方法,操作步骤都是非常的简单,安装在自己电脑上,以便有需要的使用,只需简单的几个操作步骤,老板再也不用担心忘记excel打开密码了。
感谢您的阅读!希望本文对解决您关于excel密码破解软件和怎样破解EXCEL加密文件的问题有所帮助。如果您还有其他疑问,欢迎随时向我们提问。