原始出处:http://www.cnblogs.com/Charltsing/p/EncryptVBACode.html
VBA代码加密是个老生常谈的问题，自从本人的VBA Dumper发布之后，在Office层面上做任何加密都已经失去了意义。所以，很多人开始转战VB封装或者升级到VSTO，Delphi等其他语言。但是，对于广大的VBAer来说，重新学一门语言带来的麻烦要远远超过开发VBA程序所带来的收益。所以，是否能有一种办法在不改变VBA代码的情况下，将VBA代码脱离office进行加密呢？
考虑到office支持COM插件，那么是否能够通过外接插件完成VBA代码文件的动态解密，实时插入，实时运行，完毕删除这一系列保护代码的动作呢。这样，VBA代码不会与office文件存在一处，就可以有充分的手段对VBA明文代码进行加密了。
本人在去年开发了VBA智能排版插件Smart Indenter for VBE，那么我就利用这个插件，完成了上述功能。
使用方法很简单：
参考下面的代码调用加密的VBA代码文件即可，支持Sub和Function，默认支持五个参数，支持不定参数。
'密文Function测试
Public Sub SampleEncryptVBA()
Dim oAdd As Object, obj As Variant
Dim modulename$, vbafilefullpath$, ret
'建立VBA动态调用
On Error Resume Next
Set oAdd = GetObject(, "SmartIndenterVBE.Connect")
If Err <> 0 Then
MsgBox "请按Alt-F11进入一次VBE之后再运行宏！"
End
End If
Set obj = oAdd.Instance
Call obj.SetExcelApp(Application)
'要运行的代码文件
vbafilefullpath = ThisWorkbook.Path & Application.PathSeparator & "Encryptedemo.txt"
'RunVBAFunction是运行VBA函数，参数：文件名，文件密钥，文件编码，函数名，函数参数1，函数参数2，函数参数3...（超过五个请使用不定参数）
ret = obj.RunVBAFunction(vbafilefullpath, "abc", True, "ReturnRangeValue", Range("A1"))
MsgBox ret
End Sub
功能说明：1、 此功能只是VBA加密的一个思路，供大家参考。VBA代码要正确编写，确保不能因为各种错误情况或弹窗输出中断代码（最简单的办法是加上On Error Resume Next和取消MsgBox及各种窗体）。2、 不建议将全部的vba代码都采用动态生成，推荐在部分核心功能上使用。3、 此功能并非永远不能破解，但它的优点在于将vba代码的加密层面从office转移到了外部，这给保护代码提供了极多的可行性。
演示说明：
在下面演示里面，可以看到运行了VBA过程，VBA代码由插件动态生成到Excel里面，然后调用运行，运行完毕删除模块以达到保护代码的效果。这种加密方式的好处是不需要改动VBA代码，当然也就不需要学什么新的语言了。适合专注VBA应用开发的童鞋。
演示文件下载，未安装Smart Indenter for VBE插件的的请先下载并安装。
CrackMe测试，请在2.71版插件下测试，不要用老版本。
技术交流请联系QQ：564955427
一种简单有效的VBA源代码加密办法，支持64位宿主，适用于大部分VBA代码加密的更多相关文章
[转]VS2013+简单稀疏光束调整库SSBA配置（64位编译）
有关SSBA库的资源比较少,我是在Github上搜索下载的,具体的GitHub官方下载地址为:SSBA 下载后在SSBA解压文件夹下新建文件夹build. 打开cmake gui,在source co ...
cocos对lua代码加密
1.0 cocos luacompile 用法 我用的普通的cocos2d lua,没用quick,quick好像可以对整个资源包括图像和音频都加密,打包成zip.但我没用quick.看了下luaco ...
cocos2d 3.3 lua 代码加密 luac
1.0 cocos luacompile 使用方法 我用的普通的cocos2d lua,没用quick,quick好像能够对整个资源包含图像和音频都加密,打包成zip.我看了下luacompile 的 ...
五种常用的C/C++编译器对64位整型的支持
变量定义 输出方式 gcc(mingw32) g++(mingw32) gcc(linux i386) g++(linux i386) MicrosoftVisual C++ 6.0 long lon ...
四种简单的图像显著性区域特征提取方法-----AC/HC/LC/FT。
四种简单的图像显著性区域特征提取方法-----> AC/HC/LC/FT. 分类: 图像处理 2014-08-03 12:40 4088人阅读 评论(4) 收藏 举报 salient regio ...
对Java代码加密的两种方式，防止反编译
使用Virbox Protector对Java项目加密有两种方式,一种是对War包加密,一种是对Jar包加密.Virbox Protector支持这两种文件格式加密,可以加密用于解析class文件的j ...
Android一键换肤功能：一种简单的实现
Android一键换肤功能:一种简单的实现 现在的APP开发,通常会提供APP的换肤功能,网上流传的换肤代码和实现手段过于复杂,这里有一个开源实现,我找了一大堆,发现这个项目相对较为简洁:htt ...
GIT将本地项目上传到Github（两种简单、方便的方法）
GIT将本地项目上传到Github(两种简单.方便的方法) 一.第一种方法: 首先你需要一个github账号,所有还没有的话先去注册吧! https://github.com/ 我们使用git需要先安 ...
一种简单,轻量,灵活的C#对象转Json对象的方案(续)
本文参考资料 一种简单,轻量,灵活的C#对象转Json对象的方案 [源码]Literacy 快速反射读写对象属性,字段 一段废话 之前我已经介绍了这个方案的名称为JsonBuilder,这套方案最大的 ...
随机推荐
Greenplum源码安装(CentOS 7)
最近在看GP,在安装集群的时候遇到了很多问题,在此记录下来. 目录 1 安装环境及软件版本 2 安装准备工作 2.1 修改hosts(所有机器) 2.2 修改系统内核配置(所有机器) 2.3 关闭 ...
EOS智能合约开发(四)：智能合约部署及调试(附编程示例)
EOS智能合约开发(一):EOS环境搭建和创建节点 EOS智能合约开发(二):EOS创建和管理钱包 EOS智能合约开发(三):EOS创建和管理账号 部署智能合约的示例代码如下: $ cleos set ...
java中 this() 和super()的作用及用法
原文地址:http://www.cnblogs.com/hasse/p/5023392.html 一.This Java关键字this只能用于方法体中.this只能在类中的非静态方法中使用,静态方法和 ...
Android内嵌PDF预览
一.在对应模块的build.gradle文件中加入依赖 dependencies { implementation 'com.github.barteksc:android-pdf-viewer:3. ...
排序算法之希尔排序的思想以及Java实现
1 基本思想 shell排序又称之为缩小增量排序,基本思想是,先将待排序序列分割成若干个特殊的子表,分别进行插入排序,当整个表中元素"基本有序"时,再对全体记录进行一次直接插入排序 ...
谱聚类算法(Spectral Clustering)优化与扩展
谱聚类(Spectral Clustering, SC)在前面的博文中已经详述,是一种基于图论的聚类方法,简单形象且理论基础充分,在社交网络中广泛应用.本文将讲述进一步扩展其应用场景:首先是User- ...
基于Python的多线程模块Threading小结
步入正题前,先准备下基本知识,线程与进程的概念. 相信作为一个测试人员,如果从理论概念上来说其两者的概念或者区别,估计只会一脸蒙蔽,这里就举个例子来说明下其中的相关概念. 平安夜刚过,你是吃到了苹果还 ...
yum安装提示Another app is currently holding the yum lock; waiting for it to exit...
在Linux系统中使用yum安装软件时,提示yum处于锁定状态 Another app is currently holding the yum lock; waiting for it to exi ...
强化学习（一）—— 基本概念及马尔科夫决策过程（MDP）
1.策略与环境模型 强化学习是继监督学习和无监督学习之后的第三种机器学习方法.强化学习的整个过程如下图所示: 具体的过程可以分解为三个步骤: 1)根据当前的状态 $s_t$ 选择要执行的动作 $ a_ ...
[SDOi2012]吊灯
嘟嘟嘟 这题想了半天,搞出了一个\(O(10 * d * n)\)(\(d\)为\(n\)的约数个数)的贪心算法,就是能在子树内匹配就在子树内匹配,否则把没匹配的都交给父亲,看父亲能否匹配.交上去开了 ...