封装VBA代码其实不难

weihedao

VBA可以封装成DLL，从而可以达到保护代码的目的（相对比用密码保护、加密器保护
等要强点）。由于本人水平有限，再加上不善言辞，说得不对的地方敬请谅解！
欢迎大家一起交流（本人邮箱today6928@163.com）！
VBA代码封装成DLL步骤：
1、安装Microsoft Basic
2、打开Microsoft Basic 6.0，在“新建工程”中选取“ActiveX DLL”，新建一个工程
3、把我们在VBA里面的代码拷贝到VB的代码编辑器。
4、在“工程”里面选“引用”，引用CAD 类型库，比如“AutoCAD 2004 LIBRARY”
5、在代码后面新建下面一个过程：

Dim acadApp As Object 'AcadApplication '
Dim acadDoc As Object
Sub xuexi3()
Set acadApp = GetObject(, "AutoCAD.Application")

Set acadDoc = acadApp.ActiveDocument
acadApp.WindowState = acMax '把CAD的视口调整为最大

Call zhuyao

End Sub

其中zhuyao 为我们的VBA代码里面的主要调用函数

6、按CTRL+H，把thisdrawing全部替换为acadDoc
7、在“文件”里面选“make project ** dll”,生成DLL文件。
8、回到VBA界面，新建一个工程，点“工具”--引用--浏览--，浏览到刚才做的
DLL文件，点确定。
9、在代码栏写如下代码：
Dim aa As New pingmianbuzhi
Sub ff()
aa.xuexi3
End Sub
10、运行，看看，是不是达到目的了，恭喜你！

weihedao

Dim aa As New pingmianbuzhi

pingmianbuzhi就是那个类的名字,系统默认是 Class1,可以自己改

小狼

呵呵，不错啊

一天就就通了

welcome0511

我试了一下,是可行的,谢谢楼主

cqy

6、按CTRL+H，把thisdrawing全部替换为acadDoc

这一句不会运行，请多多指教，谢谢！

leo_zp_yang

可行吗?我试试了.

xxxtttxxx

单纯的程序可能比较容易，

但是如果带有窗体的话，不知道行得通吗？