加微信EXCEL880B领取免费教程
前不久，我写的VBA代码被同事剽窃拿去邀功，不过这次我写的代码，他怕是有点懵逼，清一色的成语，哈哈，谁看谁懵逼！其实我也没那么厉害，都是写好的代码，写了一个工具，然后用工具一键转换，写好的任意VBA代码，使用VBA代码助手（搜索 VBA永远的神 ）,使用里面的代码混淆功能，选择成语混淆方式，一键完成，这酸爽哈哈，还可以混淆成日文，或者101形式的黑客二进制编码样式，吓死那些只会剽窃的人！代码助手下载地址 vbayyds.com
代码助手下载地址请点击原文链接 VBAYYDS.COM (百度搜索 VBA永远的神)
好了，有兴趣的同学可以自己下载安装一下VBA代码助手，大家赶紧实际操作练习一下吧，有不懂的问题可以留言问小编呦！感谢支持Excel880工作室，还请多多转发，持续关注我们呀！
总有人说我这个混淆后的代码可以自己逆向 那我发一段你们来试试
Private Function l0000ll11()Dim l0l110l00&For lllllll0l = 1 To UBound(l01110ll0)If InStr(l01110ll0(lllllll0l, 11), "已揽收") > 0 Thenl0l110l00 = l0l110l00 + 1ll10l1100(l0l110l00) = l01110ll0(lllllll0l, 3)l0l11llll(l0l110l00) = lllllll0ll01010l0l = l01010l0l + 1End IfNextIf l01010l0l > 0 ThenReDim Preserve l0l11llll(1 To l0l110l00)ReDim Preserve ll10l1100(1 To l0l110l00)l0l110l1l = "是"l10lll0l0 = ll10l1100(l0l110l00) - l011001llIf l10lll0l0 > 1 Thenll00l10l1 = "是"Elsell00l10l1 = "否"End IfElsel0l110l1l = "否"End IfEnd Function
