简单易操作破解加密和写保护EXCEL文件的Word格式文档下载.docx

简单易操作破解加密和写保护EXCEL文件的Word格式文档下载.docx

《简单易操作破解加密和写保护EXCEL文件的Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《简单易操作破解加密和写保护EXCEL文件的Word格式文档下载.docx（6页珍藏版）》请在冰豆网上搜索。

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"

BACKUP!

BACKUP!

!

BACKUP"

Also,rememberthatthepasswordwas"

putthereforareason.Don'

tstuffupcrucialformulas"

ordata."

Accessanduseofsomedata"

maybeanoffense.Ifindoubt,don'

t."

ConstMSGNOPWORDS1AsString="

Therewerenopasswordson"

sheets,orworkbookstructureorwindows."

AUTHORS&

VERSION

ConstMSGNOPWORDS2AsString="

Therewasnoprotectionto"

workbookstructureorwindows."

Proceedingtounprotectsheets."

ConstMSGTAKETIMEAsString="

AfterpressingOKbuttonthis"

willtakesometime."

Amountoftime"

dependsonhowmanydifferentpasswords,the"

passwords,andyourcomputer'

sspecification."

Justbepatient!

Makemeacoffee!

ConstMSGPWORDFOUND1AsString="

YouhadaWorksheet"

StructureorWindowsPasswordset."

Thepasswordfoundwas:

$$"

Noteitdownforpotentialfutureuseinotherworkbooksby"

thesamepersonwhosetthispassword."

Nowtocheckandclearotherpasswords."

ConstMSGPWORDFOUND2AsString="

passwordset."

Noteitdownforpotential"

futureuseinotherworkbooksbysamepersonwho"

setthispassword."

Nowtocheckandclear"

otherpasswords."

ConstMSGONLYONEAsString="

Onlystructure/windows"

protectedwiththepasswordthatwasjustfound."

ALLCLEAR&

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

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

.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（l）&

Chr（m）&

Chr（i3）&

Chr（i4）&

MsgBoxApplication.Substitute（MSGPWORDFOUND1,_

PWord1）,vbInformation,HEADER

ExitDo'

Bypassallfor...nexts

Next:

Next:

Next

LoopUntilTrue

OnErrorGoTo0

IfWinTagAndNotShTagThen

MsgBoxMSGONLYONE,vbInformation,HEADER

AttemptclearancewithPWord1

w1.UnprotectPWord1

ChecksforallclearShTagtriggeredto1ifnot.

IfShTagThen

Withw1

If.ProtectContentsThen

Dummydoloop

IfNot.ProtectContentsThen

MsgBoxApplication.Substitute（MSGPWORDFOUND2,_

leveragefindingPwordbytryingonothersheets

ForEachw2InWorksheets

w2.UnprotectPWord1

Nextw2

MsgBoxALLCLEAR&

REPBACK,vbInformation,HEADER

EndSub

第六步、关闭编辑窗口

第七步、工具---宏-----宏,选AllInternalPasswords,运行,等它运行完毕，再确定.这样这个加密文件就没密码了。

方法二。

1，打开一个有锁定密码的excel

2，点击文件，新建一个空白页面

3，点击新打开excel的工具－》宏－》录制宏，然后马上结束，这样就等到一个空的宏

4，点击alt＋f11，打开宏编辑器，找到刚才的新宏，然后写如代码

引用:

ActiveSheet.ProtectDrawingObjects:

=True,Contents:

=True,Scenarios:

=True_

AllowFiltering:

=True,AllowUsingPivotTables:

=True

=False,Contents:

=_

False,AllowFiltering:

True,AllowFiltering:

ActiveSheet.Unprotect

5，ok返回有锁定的表格，点击alt＋f8运行宏如果看不见，就在位置的地方选择“所有打开的工作簿”

PS:

破解的时候最多有可能弹出3次要求输入密码的地方，都点取消。

1秒不到再试试，是不是没有密码了？

适用于excel2003，2007我没有安装不知道时候可以用，家里有安装的人帮我测试一下谢谢