Excel“工程不可查看”及VBA工程密碼破解。Excel“工程不可查看”及VBA工程密碼破解。Excel“工程不可查看”及VBA工程密碼破解。Excel“工程不可查看”及VBA工程密碼破解。編制僅供參考審核批準(zhǔn)生效日期地址：電話：傳真:郵編:一、Excel“工程不可查看”兩種實(shí)現(xiàn)方法及破解關(guān)于Excel宏編程中，要用到一些技巧，如破解Excel宏加密。

今天我對(duì)一個(gè)Excel宏編程中進(jìn)行日期限制進(jìn)行了破解。方法一（共用級(jí)鎖定）

1、先對(duì)excel檔進(jìn)行一般的vbaproject”工程密碼保護(hù)。

2、打開(kāi)要保護(hù)的檔，選擇∶工具--->保護(hù)--->保護(hù)并共用活頁(yè)簿--->以追蹤修訂方式共用-->輸入密碼-->保存檔。完成後，當(dāng)你打開(kāi)“vbaproject”工程屬性時(shí)，就將會(huì)提示∶“工程不可看！”

方法二（推薦，破壞型鎖定）

用16進(jìn)制編輯工具，如winhex、ultraedit-32（可到此下載）等，再歷害點(diǎn)的人完全可以用debug命令來(lái)做......用以上軟體打開(kāi)excel檔，查找定位以下地方∶

id="{00000000-0000-0000-00000}"

注∶實(shí)際顯示不會(huì)全部為0此時(shí)，你只要將其中的位元組隨便修改一下即可。保存再打開(kāi)，就會(huì)發(fā)現(xiàn)大功告成！當(dāng)然，在修改前最好做好你的文檔備份。至於恢復(fù)只要將改動(dòng)過(guò)的地方還原即可（只要你記住了呵呵）。破解方面,有網(wǎng)友說(shuō)將CMG=，DPB=和GC=后的"="替換為"."也可以的，我已測(cè)試過(guò)的確可以，這樣更省事點(diǎn)。用16進(jìn)制編輯工具，如winhex、ultraedit-32打開(kāi)文件，查找ID=......,或到文件尾查看，找到即可。改其中的任意一位,存盤就可達(dá)到目的，注意：留有備份文件二、EXCEL宏保護(hù)密碼破解-VBA工程密碼破解在辦公中我們?？吹皆S多用宏(VBA)編寫(xiě)的EXCEL表格,而這些表格就如同一個(gè)數(shù)據(jù)庫(kù),我們可以選取或查詢很多的數(shù)據(jù),一般的這些數(shù)據(jù)是存放在一個(gè)隱藏的工作表中的,那么要如何顯示這個(gè)隱藏的工作表呢我們可以打開(kāi)宏編輯器(ALT+F11),再安CTRL+R打開(kāi)專案,這時(shí)彈出窗會(huì)有所有的這個(gè)EXCEL的工用表,這時(shí)你就可以看看那些是被隱藏的了,很多時(shí)候打開(kāi)是需要密碼的,用以下方法解密后,再將解密后文件打開(kāi),依同樣方法在工作表標(biāo)簽中右鍵>>檢視程式碼>>復(fù)制以下代碼>>按F8執(zhí)行PrivateSubCommandButton1_Click()Worksheets("這里為你要顯示的工作表名稱").Visible=TrueEndSub關(guān)于破解EXCELVBA工程密碼的方法,以下代碼非常有效,首先建一新EXCEL文件,在工作表標(biāo)簽處右點(diǎn)>>檢視程式碼>>復(fù)制以下代碼>>按F8執(zhí)行

在彈出窗中選你要你破解工程密碼的EXCEL文件

>>再按F5執(zhí)行即可.PrivateSubVBAPassword()

'你要解保護(hù)的Excel文件路徑

Filename=("Excel文件（*.xls&*.xla&*.xlt）,*.xls;*.xla;*.xlt",,"VBA破解")

IfDir(Filename)=""Then

MsgBox"沒(méi)找到相關(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"請(qǐng)先對(duì)VBA編碼設(shè)置一個(gè)保護(hù)密碼...",32,"提示"

ExitSub

EndIfIfProtect=FalseThen

DimStAsString*2

Dims20AsString*1'取得一個(gè)0D0A十六進(jìn)制字串

Get#1,CMGs-2,St'取得一個(gè)20十六制字串

Get#1,DPBo+16,s20'替換加密部份機(jī)碼

Fori=CMGsToDPBoStep2

Put#1,i,St

Next'加入不配對(duì)符號(hào)

If(DPBo-CMGs)Mod2<>0Then

Put#1,DPBo+1,s20

EndIf

MsgBox"文件解密成功......",32,"提示"

EndIf

Close#1

EndSub如果上面代碼不能運(yùn)行或出錯(cuò),請(qǐng)用以下代碼重試.PrivateSubVBAPassword()'你要解保護(hù)的Excel文件路徑Filename=("Excel文件（*.xls&*.xla&*.xlt）,*.xls;*.xla;*.xlt",,"VBA破解")IfDir(Filename)=""ThenMsgBox"沒(méi)找到相關(guān)文件,清重新設(shè)置。"ExitSubElseFileCopyFilename,Filename&".bak"'備份文件。EndIfDimGetDataAsString*5OpenFilenameForBinaryAs#1DimCMGsAsLongDimDPBoAsLongFori=1ToLOF(1)Get#1,i,GetDataIfGetData="CMG="""ThenCMGs=iIfGetData="[Host"ThenDPBo=i-2:ExitForNextIfCMGs=0ThenMsgBox"請(qǐng)先對(duì)VBA編碼設(shè)置一個(gè)保護(hù)密碼...",32,"提示"ExitSubEndIfDimStAsString*2Dims20AsString*1'取得一個(gè)0D0A十六進(jìn)制字串Get#1,CMGs-2,St'取得一個(gè)20十六制字串Get#1,DPBo+16,s20'替換加密部份機(jī)碼Fori=CM