【1人回答】Excel vba代码要怎么写？

回答：

按住alt+f11弹出vba编辑器。 只是要破解么？ 新建一个Excel工作簿,alt+f11 打开vba编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把option explicit行删除即可,经测试已经通过.'移除vba编码保护 SUb moveProtect() dim filename as string filename = application.getopenfilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "vba破解") if filename = CStr(false) then exit SUbelse vbapasSWord filename, false end ifend SUb'设置vba编码保护 SUb setProtect() dim filename as string filename = application.getopenfilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "vba破解") if filename = CStr(false) then exit SUbelse vbapasSWord filename, true end ifend SUbPRivate function vbapasSWord(filename as string, optional Protect as boolean = false) if dir(filename) = "" then exit functionelse 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 Fornext if cmgs = 0 then msgbox "请先对vba编码设置一个保护密码...", 32, "提示" exit function 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, stnext '加入不配对符号 if (dpbo - cmgs) mod 2 0 then put #1, dpbo + 1, s20 end if msgbox "文件解密成功......", 32, "提示"else dim mms as string * 5 mms = "dpb=""" put #1, cmgs, mms msgbox "对文件特殊加密成功......", 32, "提示" end if close #1end function