Excel“工程不可查看”及VBA工程密碼破解

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