如何破解ExcelVBAproject工程密码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、再次打开破解的这个文件，可以查看代码了