首页源码excel密码破解(如何破解Excel密码)

excel密码破解(如何破解Excel密码)

编程之家2024-06-04127次浏览

一、2016excel的密码如何破解

第一种方法就是按住快捷键ALT+F11，然后切换出VBA编辑窗口，如图一；在该窗口的左侧我们的选择那个忘记密码的工作表，比如sheet 1...

excel密码破解(如何破解Excel密码)

请点击输入图片描述

请点击输入图片描述

然后我们复制以下代码

“Sub Pojie()ActiveSheet.Protect AllowFiltering:=True: ActiveSheet.UnprotectEnd Sub”，双击刚才选中的sheet 1以后，在编辑窗口我们输入刚才复制的那段代码；

请点击输入图片描述

接下来依次点击“运行”-“运行宏”，在弹出的宏对话框，我们再次点击“运行”，此时原先加密的工作表就被解除密码了，重新打开以后我们会发现可以直接进去；

excel密码破解(如何破解Excel密码)

请点击输入图片描述

请点击输入图片描述

另外一种方法就是将其更改为压缩文件，将之前.xlsx后缀更改为.zip，然后双击该压缩文件，我们依次找到“xl”-“worksheets”文件夹，如下图...

请点击输入图片描述

请点击输入图片描述

进入到该文件夹以后，鼠标右键点击加密的那一个工作表“打开”，此时系统会以记事本的形式将其打开，如图二...

excel密码破解(如何破解Excel密码)

请点击输入图片描述

请点击输入图片描述

接着以上，我们在记事本里按照Ctrl+F切换出查找，然后输入“protection”，然后我们将记事本中带有protection的那一段代码以及两边的<>符号全部删除；

请点击输入图片描述

请点击输入图片描述

保存为新的记事本以后，我们依旧将之前的工作簿后缀更改为.xlsx，此时被加密的文件就变成了可编辑状态，也就是说密码被破解了，如图所示...

请点击输入图片描述

二、如何解锁excel密码的教程

在 Excel中录入过多的重要数据是大家的习惯，为了不让Execl数据被他人随意篡改都需要进行密码保护，但有时候却忘记了密码，这个时候就需要解锁密码了。下面是我带来的关于如何解锁excel密码的教程，欢迎阅读!

如何解锁excel密码的教程：

解锁密码步骤1：如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开(关掉所有程序，为了速度)：

解锁密码步骤2：新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：

Sub crack()

Dim i As Long

Dim FileName As String

i= 0

FileName= Application.GetOpenFilename("Excel文件(*.xls&*.xlsx),*.xls;*.xlsx",,"VBA破解")

FileName= Right(FileName, Len(FileName)- InStrRev(FileName,"\"))

Application.ScreenUpdating= False

line2: On Error GoTo line1

Workbooks.Open FileName,, True,, i

MsgBox"Password is"& i

Exit Sub

line1: i= i+ 1

Resume line2

Application.ScreenUpdating= True

End Sub

解锁密码步骤3：然后在此界面直接按F5运行此宏，选择文件，等啊等(看密码长度了)

三、电脑破解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工作表密码的方法，希望此教程内容能够帮助到大家。

关键词(什么是关键词及优缺点)高的净化机(什么是高的净化机)
↑