Ecel VBA编程 使用动态链接库.docxVIP

Excel VBA 编程 使用动态链接库 通过上面介绍的方法保护工程，非授权用户不能查看工程的源码。但是，仅仅设置密码保护是不够的，通过Internet 可以搜索到多种方法对其进行破解。对源码安全性较高的保护方式是把 VBA 核心代码封装到动态链接库（DLL）文件中，然后用VBA 代码访问动态链接库提供的过程或函数来完成工作。动态链接库很难被反编译，非常安全。 DLL 是 Dynamic Link Library 的缩写，意为动态链接库。在Windows 中，许多应用程序并不是一个完整的或执行文件，它们被分割成一些相对独立的动态链接库，即 DLL 文件，放置于系统中。 在 VBE 中，调用 DLL 文件时其运行速度是非常快的。用户可以通过 Microsoft Basic 6.0 将 VBA 代码封装到动态链接库（DLL）文件中。 将 VBA 代码封装成动态链接库 打开 Microsoft Basic 6.0，在【新建工程】中选取“ActiveX DLL”，新建一个工程。在【属性】窗口中将工程名改为 VBAPrj，类模块名改为 VBACls。然后执行【工程】｜【引用】命令， 在对话框中选取【Microsoft Office 11.0 Object Library】，然后保存工程。 将 VBA 工程中，将要封装的过程（如Test）的代码复制到VB 的工程管理器中类模块 VBACls 的【代码】编辑窗口中。这个过程成为类模块 VBACls 的一个方法，然后将工程编译生成 DLL 文件。 可以将多个过程复制到 可以将多个过程复制到 VB 的类模块中，从而使用 DLL 文件中包含多个方法。在 提 示 Excel 中，通过类模块 VBACls 建立的对象来调用这些方法。 修改代码 虽然 VBA 源于 VB，但是两者毕竟存在着一些差异。因此，需要对转移到VB 中的 VBA 代码做一些必要的修改。 修改 VBA 代码中所特有类型的对象。 如果所添加的代码里有 VBA 所特有类型——如 WorkBook、WorkSheet、Rang 等所建立的对象，编译时会提示错误，因为VB 不能够识别这些对象。此时，可以将这些对象作为过程或函数的参数进行传递。需要注意的是，这些参数的类型都一律设为Object。 例如，过程 Test 中要访问对象 Range，但是 VB 无法识别 Range。于是，就为过程 Test 添加一个参数 range 来传递 Range，即 Test 可定义为 Test(range As Object)。 修改 VBA 所特有一般变量。 VB 也无法识别 VBA 特有的一般变量，如ProtectType，同样，我们也将其作为过程后函数的参数进行传递，不过其类型名都一律设为Variant。 修改 VBA 所特有常量。 如果在 VBA 代码中出现了这样的语句: ProtectionType = msoLineSolid ProtectionType = msoLineSolid MsgBox CStr (msoLineSolid)很明显，msoLineSolid 是 Excel 所独有的常量，不为 VB 所能识别，因而无法通过编译。当然， 可以用修改变量的方法予以修改。在Excel 中使用如下语句来获取该常量的值： MsgBox CStr (msoLineSolid) 其中 CStr 是类型转换函数，返回参数相应的字符串。只要在Excel 中触发此事件，会弹出一个对话窗，显示“1”。于是，就可以将语句改为 ProtectionType = 1。 封装用户窗体 同样，也可以将用户窗体封装到动态链接库文件里。首先，打开 VBA 编辑器，右击工程资源管理器中的用户窗体，执行【导出文件】命令，并将窗体文件保存到指定的路径下。然后， 切换到 VB 编辑器中，执行【工程】｜【添加文件】命令，添加导出的窗体文件。这时，导入的文件将出现在 VB 编辑器的工程资源管理器中。 在工程资源管理器中，右键用户窗体并执行【查看代码】，将打开【代码】编辑窗口。同时， 也显示了导入的用户窗体的代码。修改代码以保证通过编译。这样Excel 就可以通过类模块VBACls 间接地调用窗体。 在 在 VBE 窗口中，导出用户窗体时，同时也导出了窗体中的代码。 提 示 引用动态链接库 代码或用户窗体在 VB 编辑器中编译后，会产生一个Dll 的文件。在Excel 中，就可以通过这个文件来调用其中的代码或用户窗体中。调用方法有如下几种： 例如，经过编译已生成了一个动态链接库文件 VBAPrj.dll，其中有一个类模块 VBACls，此类模块有一个方法 Test(range As Object)，在 Excel 中调用该文件。 通过变量引用 Dim VBACls As New