封装ExcelVBA代码：[2]ExcelVBA代码引用DLL

通过将ExcelVBA代码封装成DLL，可有效防止代码被非法查看。上一节我们已经创建一个用VBA编写的DLL，本节，我们将通过ExcelVBA环境来引用该DLL。下面就具体的方法。

方法/步骤

1、引用Dll文件打开Excel2007，按键盘组合键“Alt+F11”进入VBA编程环境。点击“工具”→“引用”选项，在打开的“引用”窗口中，点击“浏览”按钮。

2、在随后打开的“浏览文件”窗口中，找到上一节生成的“feifeidown.dll”文件，点击“确定”进行添加，在返回的“引用”窗口中，确保勾选“feifeidown”，然后点击“确定”按钮完成。

3、双击“ThisWorkBook”，选择“Open”事件和“BeforeClose事件上”，敛财醣沁并输入以下代码，用于在文档打开时注册DLL，以及关闭时反注册DLL。Private胨检馁秣SubWorkbook_BeforeClose(CancelAsBoolean)Shell"Regsvr32/u/s"&VBA.Chr(34)&ThisWorkbook.Path&"\feifeidown.dll"&VBA.Char(34),vbHideEndSubPrivateSubWorkbook_Open()Shell"Regsvr32/s"&VBA.Chr(34)&ThisWorkbook.Path&"\feifeidown.dll"&VBA.Char(34),vbHideEndSub

4、编写代码调用DLL右击“Excel对象”，选择“插入”→“模块”，在模块中输入艮劁飨戽以下代码：SubTest()DimsaAsNewAddInfosa.SetValueEndSub

5、按下键盘快捷键“F5”，在打开的“宏”窗口中选择“Test”，点击“运行”，然后就可以在Sheet1工作表中看到效果啦。

6、最后将该过程添加到“ThisWorkBook”的启动菜单中，即可实现在打开文档中自动运行宏的目地。