Excel“工程不可查看”及VBA工程密碼破解_第1頁
Excel“工程不可查看”及VBA工程密碼破解_第2頁
Excel“工程不可查看”及VBA工程密碼破解_第3頁
Excel“工程不可查看”及VBA工程密碼破解_第4頁
Excel“工程不可查看”及VBA工程密碼破解_第5頁
已閱讀5頁,還剩5頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論