EXCEL密码破解无需任何工具插件超简单Word文档下载推荐.docx
- 文档编号:15870703
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:12
- 大小:21.88KB
EXCEL密码破解无需任何工具插件超简单Word文档下载推荐.docx
《EXCEL密码破解无需任何工具插件超简单Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《EXCEL密码破解无需任何工具插件超简单Word文档下载推荐.docx(12页珍藏版)》请在冰豆网上搜索。
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"
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
ForEach
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- EXCEL 密码 破解 无需 任何 工具 插件 简单
![提示](https://static.bdocx.com/images/bang_tan.gif)