有时出于代码安全性及保密性的需要，我们会对ExcelVBA代码进入加密，通常的做法是利用给工程设置密码的方法实现加密，对于这类加密方法，由于存在安全度低、易破解等问题，因此往往起不到应有的效果。今天小编就给大家计解一种更为安全的加密VBA代码的方法，那就是借助动态链接库技术来实现。工具/原料moreVB 6.0 Excel 2007 方法/步骤1/6分步阅读

打开VB 6.0环境，点击“ 文件“→”新建工程“，在打开的”新建工程“窗口中选择”ActiveX（DLL）控件“，然后点击‘确定”按钮。

2/6

添加对Excel对象库的引用

点击“工程”→“引用”，在打开的“引用”窗口中找到并选择“Microsoft Excel 12.0 Object Library”。（不同版本的Excel，其对应对象库名称可能不一致，请以实际对象名称为准）

3/6

将"工程名称"更改为”feifeidown“，将”类模块“名称更改为”AddInfo".

4/6

双击”类模块AddInfo“，编写如图所示的代码：

Option Explicit

Sub SetValue()

'创建Excel应用程序对象

Dim excelApp As New Excel.Application

'创建工作簿对象

Dim excelWorkBook As New Excel.Workbook

'创建工作表对象

Dim excelWorkSheet As New Excel.Worksheet

'创建新工作簿

Set excelWorkBook = excelApp.Workbooks.Add

'设置活动工作表

Set excelWorkSheet = excelWorkBook.Sheets(1)

'给特定单元格赋值

excelWorkSheet.Cells(1, 1) = "百度ID"

excelWorkSheet.Cells(1, 2) = "feifeidown"

'显示工作表

excelWorkSheet.Visible = xlSheetVisible

End Sub

5/6

对工程进行相关描述设置

点击”工程“→”feifeidown属性“，在打开的”工程属性“窗口中，切换到”生成“选项卡，将“应用程序”的标题设置为“封装VBA代码”，产品名称设置为”通过DLL对EXCEL VBA进行封装 “，最后点击”确定“按钮。

6/6

打包生成DLL文件

点击”文件“→”生成feifeidownDll文件“，在打开的”生成工程“窗口中，选择文件的保存地址，然后点击”确定“按钮，至此，DLL文件生成完成。

封装excelvba