版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
如何破解EXCEL工作表保護(hù)密碼工具---宏----錄制新宏---輸入名字如:hh3停止錄制(這樣得到一個(gè)空宏)
4工具---宏----宏,選hh,點(diǎn)編輯按鈕
選擇“個(gè)人宏工作簿”后按確定,彈出如下“暫停”按鈕,點(diǎn)擊停止:點(diǎn)擊“運(yùn)行”按鈕后,彈出“宏”對(duì)話框,
點(diǎn)擊運(yùn)行“PERSONAL.XLS!工作保護(hù)密碼破解”這個(gè)宏99、運(yùn)行“PERSONAL.XLS!工作保護(hù)密碼破解”這個(gè)宏后,
如下圖示意就可以解除工作表的密碼保護(hù)了10(這個(gè)圖,如果工作表中有多組不同密碼,
每解開一組,就會(huì)提示一次,也就說可能會(huì)出現(xiàn)幾次)MsgBoxMSGTAKETIME,vbInformation,HEADER
IfNotWinTagThen
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
EndIfIfWinTagAndNotShTagThen
MsgBoxMSGONLYONE,vbInformation,HEADER
ExitSub
EndIf
OnErrorResumeNextForEachw1InWorksheets
'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
LoopU
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 城市配送與物流行業(yè)法律法規(guī)考核試卷
- 乳品企業(yè)全球市場(chǎng)布局策略考核試卷
- 鎳氫電池管理系統(tǒng)設(shè)計(jì)考核試卷
- 有機(jī)化學(xué)原料的生物合成途徑考核試卷
- 西藥批發(fā)企業(yè)服務(wù)創(chuàng)新與客戶滿意度提升考核試卷
- 駕駛員心理疏導(dǎo)與支持考核試卷
- 2024年度遼寧省安全員之A證(企業(yè)負(fù)責(zé)人)綜合檢測(cè)試卷A卷含答案
- 2024年度貴州省安全員之A證(企業(yè)負(fù)責(zé)人)通關(guān)提分題庫(kù)及完整答案
- 2024年度湖南省安全員之C證(專職安全員)通關(guān)題庫(kù)(附帶答案)
- 2024年度甘肅省安全員之A證(企業(yè)負(fù)責(zé)人)押題練習(xí)試題B卷含答案
- 浙江省溫州市各縣區(qū)鄉(xiāng)鎮(zhèn)行政村村莊村名居民村民委員會(huì)明細(xì)及行政區(qū)劃代碼
- 2022-2023年(備考資料)醫(yī)技類-心理治療師代碼:212歷年真題精選一含答案試卷7
- 小學(xué)英語(yǔ)人教PEP新版六年級(jí)上冊(cè)Unit3B-Let-s-learn課件
- 畢業(yè)論文-車用永磁同步電機(jī)設(shè)計(jì)
- 研究性學(xué)習(xí)數(shù)學(xué)分期付款問題
- 土壤改良單元工程質(zhì)量評(píng)定表
- DB11-T694-2021模板早拆施工技術(shù)規(guī)程
- 有害生物管理技術(shù)(PMP)課件
- 信息技術(shù)與教育教學(xué)融合課評(píng)價(jià)表
- 鋼筋吊斗、吊籠制作技術(shù)交底范本
- 網(wǎng)紅主播孵化合作協(xié)議
評(píng)論
0/150
提交評(píng)論