如何破解excel vba加载项project密码

如何破解excel vba加载项project密码

一般来说，可以移除，破解获得原密码有困难。腾讯号码谐音【一丝霸气三思柳闪闪舞】邮箱吧

关于破解excel vba工程密码的方法,以下代码非常有效,首先建一新excel文件,在工作表标签处右点>>查看代码>>复制以下代码>>按f8执行在弹出窗中选你要你破解工程密码的excel文件 >>再按f5执行即可.   private sub vbapassword() '你要解保护的excel文件路径 filename =application.getopenfilename("excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "vba破解") if dir(filename) = "" then msgbox "没找到相关文件,清重新设置。" exit sub else filecopy filename, filename &".bak" '备份文件。 end if dim getdata as string * 5 open filename for binary as #1 dim cmgs as long dim dpbo as long for i = 1 to lof(1) get #1, i, getdata if getdata = "cmg="""then cmgs = i if getdata = "[host" then dpbo =i - 2: exit for next if cmgs = 0 then msgbox "请先对vba编码设置一个保护密码...", 32,"提示" exit sub end if if protect = false then dim st as string * 2 dim s20 as string * 1 '取得一个0d0a十六进制字串 get #1, cmgs - 2, st '取得一个20十六制字串 get #1, dpbo + 16, s20 '替换加密部份机码 for i = cmgs to dpbo step 2 put #1, i, st next '加入不配对符号 if (dpbo - cmgs) mod 2 <> 0 then put #1, dpbo + 1, s20 end if msgbox "文件解密成功......", 32, "提示" end if close #1 end su 如果上面代码不能运行或出错,请用以下代码重试. private sub vbapassword() '你要解保护的excel文件路径 filename =application.getopenfilename("excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "vba破解") if dir(filename) = "" then msgbox "没找到相关文件,清重新设置。" exit sub else filecopy filename, filename &".bak" '备份文件。 end if dim getdata as string * 5 open filename for binary as #1 dim cmgs as long dim dpbo as long for i = 1 to lof(1) get #1, i, getdata if getdata = "cmg="""then cmgs = i if getdata = "[host" then dpbo =i - 2: exit for next if cmgs = 0 then msgbox "请先对vba编码设置一个保护密码...", 32,"提示" exit sub end if dim st as string * 2 dim s20 as string * 1 '取得一个0d0a十六进制字串 get #1, cmgs - 2, st '取得一个20十六制字串 get #1, dpbo + 16, s20 '替换加密部份机码 for i = cmgs to dpbo step 2 put #1, i, st next '加入不配对符号 if (dpbo - cmgs) mod 2 <> 0 then put #1, dpbo + 1, s20 end if msgbox "文件解密成功......", 32, "提示" close #1 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息