无论是excel密码破解软件还是怎样破解EXCEL加密文件,它们都是当前热门话题。如果你对它们感到好奇,那么请跟随小编的脚步,一起来揭开它们的秘密吧!

excel密码怎么破解

取消excel密码保护:

excel密码破解软件?怎样破解EXCEL加密文件

工具/原料:联想拯救者R7000、Windows 10、Excel 2019

1、打开加密excel

打开一个加密的excel,输入密码,点击确定。

2、打开信息页面

点击文件,点击信息。

excel密码破解软件?怎样破解EXCEL加密文件

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加密文件的问题有所帮助。如果您还有其他疑问,欢迎随时向我们提问。