




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
Excel“工程不可查看”及VBA工程密碼破解。Excel“工程不可查看”及VBA工程密碼破解。Excel“工程不可查看”及VBA工程密碼破解。Excel“工程不可查看”及VBA工程密碼破解。編制僅供參考審核批準(zhǔn)生效日期地址:電話:傳真:郵編:一、Excel“工程不可查看”兩種實現(xiàn)方法及破解關(guān)于Excel宏編程中,要用到一些技巧,如破解Excel宏加密。
今天我對一個Excel宏編程中進(jìn)行日期限制進(jìn)行了破解。方法一(共用級鎖定)
1、先對excel檔進(jìn)行一般的vbaproject”工程密碼保護。
2、打開要保護的檔,選擇∶工具--->保護--->保護并共用活頁簿--->以追蹤修訂方式共用-->輸入密碼-->保存檔。完成後,當(dāng)你打開“vbaproject”工程屬性時,就將會提示∶“工程不可看!”
方法二(推薦,破壞型鎖定)
用16進(jìn)制編輯工具,如winhex、ultraedit-32(可到此下載)等,再歷害點的人完全可以用debug命令來做......用以上軟體打開excel檔,查找定位以下地方∶
id="{00000000-0000-0000-00000}"
注∶實際顯示不會全部為0此時,你只要將其中的位元組隨便修改一下即可。保存再打開,就會發(fā)現(xiàn)大功告成!當(dāng)然,在修改前最好做好你的文檔備份。至於恢復(fù)只要將改動過的地方還原即可(只要你記住了呵呵)。破解方面,有網(wǎng)友說將CMG=,DPB=和GC=后的"="替換為"."也可以的,我已測試過的確可以,這樣更省事點。用16進(jìn)制編輯工具,如winhex、ultraedit-32打開文件,查找ID=......,或到文件尾查看,找到即可。改其中的任意一位,存盤就可達(dá)到目的,注意:留有備份文件二、EXCEL宏保護密碼破解-VBA工程密碼破解在辦公中我們??吹皆S多用宏(VBA)編寫的EXCEL表格,而這些表格就如同一個數(shù)據(jù)庫,我們可以選取或查詢很多的數(shù)據(jù),一般的這些數(shù)據(jù)是存放在一個隱藏的工作表中的,那么要如何顯示這個隱藏的工作表呢我們可以打開宏編輯器(ALT+F11),再安CTRL+R打開專案,這時彈出窗會有所有的這個EXCEL的工用表,這時你就可以看看那些是被隱藏的了,很多時候打開是需要密碼的,用以下方法解密后,再將解密后文件打開,依同樣方法在工作表標(biāo)簽中右鍵>>檢視程式碼>>復(fù)制以下代碼>>按F8執(zhí)行PrivateSubCommandButton1_Click()Worksheets("這里為你要顯示的工作表名稱").Visible=TrueEndSub關(guān)于破解EXCELVBA工程密碼的方法,以下代碼非常有效,首先建一新EXCEL文件,在工作表標(biāo)簽處右點>>檢視程式碼>>復(fù)制以下代碼>>按F8執(zhí)行
在彈出窗中選你要你破解工程密碼的EXCEL文件
>>再按F5執(zhí)行即可.PrivateSubVBAPassword()
'你要解保護的Excel文件路徑
Filename=("Excel文件(*.xls&*.xla&*.xlt),*.xls;*.xla;*.xlt",,"VBA破解")
IfDir(Filename)=""Then
MsgBox"沒找到相關(guān)文件,清重新設(shè)置。"
ExitSub
Else
FileCopyFilename,Filename&".bak"'備份文件。
EndIfDimGetDataAsString*5
OpenFilenameForBinaryAs#1
DimCMGsAsLong
DimDPBoAsLong
Fori=1ToLOF(1)
Get#1,i,GetData
IfGetData="CMG="""ThenCMGs=i
IfGetData="[Host"ThenDPBo=i-2:ExitFor
NextIfCMGs=0Then
MsgBox"請先對VBA編碼設(shè)置一個保護密碼...",32,"提示"
ExitSub
EndIfIfProtect=FalseThen
DimStAsString*2
Dims20AsString*1'取得一個0D0A十六進(jìn)制字串
Get#1,CMGs-2,St'取得一個20十六制字串
Get#1,DPBo+16,s20'替換加密部份機碼
Fori=CMGsToDPBoStep2
Put#1,i,St
Next'加入不配對符號
If(DPBo-CMGs)Mod2<>0Then
Put#1,DPBo+1,s20
EndIf
MsgBox"文件解密成功......",32,"提示"
EndIf
Close#1
EndSub如果上面代碼不能運行或出錯,請用以下代碼重試.PrivateSubVBAPassword()'你要解保護的Excel文件路徑Filename=("Excel文件(*.xls&*.xla&*.xlt),*.xls;*.xla;*.xlt",,"VBA破解")IfDir(Filename)=""ThenMsgBox"沒找到相關(guān)文件,清重新設(shè)置。"ExitSubElseFileCopyFilename,Filename&".bak"'備份文件。EndIfDimGetDataAsString*5OpenFilenameForBinaryAs#1DimCMGsAsLongDimDPBoAsLongFori=1ToLOF(1)Get#1,i,GetDataIfGetData="CMG="""ThenCMGs=iIfGetData="[Host"ThenDPBo=i-2:ExitForNextIfCMGs=0ThenMsgBox"請先對VBA編碼設(shè)置一個保護密碼...",32,"提示"ExitSubEndIfDimStAsString*2Dims20AsString*1'取得一個0D0A十六進(jìn)制字串Get#1,CMGs-2,St'取得一個20十六制字串Get#1,DPBo+16,s20'替換加密部份機碼Fori=CM
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 手機連接器精密設(shè)計規(guī)范-編制說明(征求意見稿)
- 四年級上冊數(shù)學(xué)口算題
- 二年級下冊《混合運算》練習(xí)題-二年級下學(xué)期的混算題
- 高中語文第六冊訴肺腑 第2課時舊人教版第二課時
- 公司返聘人員合同范例
- 介紹工地合同范例
- 人人車電子合同范例
- 公司股東質(zhì)押合同范例
- 代維分包合同范例
- 人才房申購合同范例
- 青年在選擇職業(yè)時考慮
- DB51∕T 938-2009 草原鷹架招鷹控鼠技術(shù)規(guī)程
- 土木工程建筑工程畢業(yè)設(shè)計辦公樓
- 中國工藝美術(shù)史資料(田自秉)課件
- 施工現(xiàn)場防汛安全檢查表
- 定子中心偏差及圓的調(diào)整
- AFM-原子力顯微鏡簡介
- 實用的尺寸公差等級一覽表
- 骨質(zhì)疏松癥ppt課件
- 陶瓷過濾機使用說明書(新)
- 申通快遞淘寶物流公章證明
評論
0/150
提交評論