EXCEL vbaproject密码破解

EXCELvbaproject密码破解可能是这个宏使用了附加控件，或引用，你在复制时可将包含这个文件的文件夹全部自制过去试试，如果不行，就调VB编辑器，通过“工具”—“附加控件”，看宏使用了哪些附加控件，然后现通过Windows查找，找到所附加的控件，一同复制到新机子上。注册一下就可用了如果宏加了密码。不能查看宏。请用下面的方法。新建一个Execl文件。Alt+f11打开编辑器。将下面的这段代吗复制进去，然后运行。找到要破解的文件，去除其保护。然后再像上面一样设置——————————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,提示ExitSubEndIfIfProtect=FalseThenDimStAsString*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,提示EndIfClose#1EndSub