破解VBAproject工程密碼

1、將你要破解的Excel文件關閉，然后新建一個Excel文件

2、打開新建的這個Excel，按下alt+F11，打開vb界面，新建一個模塊

3、將代碼復制到這個模塊中

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

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

IfDir(Filename)=""Then

MsgBox"沒找到相關文件,請重新設置。"

ExitSub

Else

FileCopyFilename,Filename&".bak"'備份文件。

EndIf

DimGetDataAsString*5

OpenFilenameForBinaryAs#1

DimCMGsAsLong

DimDPBoAsLong

Fori=1ToLOF(1)

Get#1,i,GetData

IfGetData="CMG="""ThenCMGs=i

IfGetData="[Host"ThenDPBo=i-2:ExitFor

Next

IfCMGs=0Then

MsgBox"請先對VBA編碼設置一個保護密碼...",32,"提示"

ExitSub

EndIf

DimStAsString*2

Dims20AsString*1

'取得一個0D0A十六進制字串

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,"提示"

Close#1

EndSub

4、然后點擊運行按鈕，如圖所示，綠色的小三角就是

5、你會看到，打開了一個文件夾，找到我們要破解的這個文件，然后點擊打開

6、這里我們會看到破解成功的提示了

7、再次打開破解的這個文件，可以查看代碼了