有时出于代码安全性及保密性的需要,我们会对Excel外狒芙梨VBA代码进入加密,通常的做法是利用给工程设置密码的方法实现加密,对于这类加密方法,由于存在安全度低、易破解等问题,因此往藻焐瞬赧往起不到应有的效果。今天小编就给大家计解一种更为安全的加密VBA代码的方法,那就是借助动态链接库技术来实现。
工具/原料
VB6.0
Excel2007
方法/步骤
1、打开VB6.0环境,点击“文件“→”新建工程“,在打开的”新建工程“窗口中选择”ActiveX(DLL)控件“,然后点击‘确定”按钮。
2、添加对Excel对象库的引用点击“工程”→“引用”,在打开的“引用”窗口中找到并选择“MicrosoftExcel12.0ObjectLibrary”。(不同版本的Excel,其对应对象库名称可能不一致,请以实际对象名称为准)
3、将"工程名称"更改为”feifeidown“,将”类模块“名称更改为”AddInfo".
4、双击”类模块AddInfo“,编写如图所示的代码:OptionExplicitSubS娣定撰钠etValue()惺绅寨瞀'创建Excel应用程序对象DimexcelAppAsNewExcel.Application'创建工作簿对象DimexcelWorkBookAsNewExcel.Workbook'创建工作表对象DimexcelWorkSheetAsNewExcel.Worksheet'创建新工作簿SetexcelWorkBook=excelApp.Workbooks.Add'设置活动工作表SetexcelWorkSheet=excelWorkBook.Sheets(1)'给特定单元格赋值excelWorkSheet.Cells(1,1)="百度ID"excelWorkSheet.Cells(1,2)="feifeidown"'显示工作表excelWorkSheet.Visible=xlSheetVisibleEndSub
5、对工程进行相关描述设置点击”工程“→”feifeidown属性“,在打开的”工程属性“窗口中,切换到”生成“选项卡,将“应用程序”的标题设置为“封装VBA代码”,产品名称设置为”通过DLL对EXCELVBA进行封装“,最后点击”确定“按钮。
6、打包生成DLL文件点击”文件“→”生成feifeidownDll文件“,在打开的”生成工程“窗口中,选择文件的保存地址,然后点击”确定“按钮,至此,DLL文件生成完成。