【Excel2013教程】如何破解vba工程密码

【Excel2013教程】如何破解vba工程密码|浏览：13764|更新：2013-03-2419:12本人经常从网上下载别人的一些Excel学习vba编码，不过有些人为了避免别人盗用所以给代码加了密码，其实这个密码破解起来很假单，下面我就跟大家分享一下如何破解vba工程代码：1.将你要破解的Excel文件关闭，切记一定要关闭呀！然后新建一个Excel文件2.打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图所示3.将代码复制到这个模块中，代码如下：PrivateSubVBAPassword()'你要解保护的Excel文件路径Filename=Application.GetOpenFilename(Excel文件（*.xls&*.xla&*.xlt）,*.xls;*.xla;*.xlt,,VBA破解)IfDir(Filename)=ThenMsgBox没找到相关文件,清重新设置。ExitSubElseFileCopyFilename,Filename&.bak'备份文件。EndIfDimGetDataAsString*5OpenFilenameForBinaryAs#1DimCMGsAsLongDimDPBoAsLongFori=1ToLOF(1)Get#1,i,GetDataIfGetData=CMG=ThenCMGs=iIfGetData=[HostThenDPBo=i-2:ExitForNextIfCMGs=0ThenMsgBox请先对VBA编码设置一个保护密码...,32,提示ExitSubEndIfDimStAsString*2Dims20AsString*1'取得一个0D0A十六进制字串Get#1,CMGs-2,St'取得一个20十六制字串Get#1,DPBo+16,s20'替换加密部份机码Fori=CMGsToDPBoStep2Put#1,i,StNext'加入不配对符号If(DPBo-CMGs)Mod20ThenPut#1,DPBo+1,s20EndIfMsgBox文件解密成功......,32,提示Close#1EndSub4.然后点击运行按钮，如图所示，绿色的小三角就是5.你会看到，打开了一个文件夹，找到我们要破解的这个文件，然后点击打开6.稍等几分钟你就会看到破解成功的提示了7.再次打开你要破解的这个文件，你会看到这里已经可以查看代码了哈哈