COM加载宏制作和安装全过程.docVIP

COM加载宏制作和安装全过程 COM加载宏的制作和安装全过程 作者：bengdeng | 来源：Excel吧 | 时间：2008-10-07 | 阅读权限：游客 | 会员币：0 | 【大 中 小】 VBA的密码保护很容易破解，因此，在需要保护代码时，一般都用其它编程工具生成COM加载宏，然后再让Excel加载，这样就没有办法查看到原代码了。Excel吧一向主张都是知识分享，所有的文件都没有进行保护（非本站原创的作品，原作者有保护的除外），但做为一项技术和知识点，这里我们通过创建一个COM加载宏的过程来了解怎么创建COM加载宏。 首先说明一下编程的环境。我使用的是VB6.0企业版和Excel2003，在Winxp中测试通过，操作系统一般影响不大，而编程工具还可以选择其它，不过基本过程类似，但代码就不一样了，而Excel版本如果是2007版的话，下面这个例子生成的工具栏会在加载项菜单中出现。 接下来就开始动手了，创建一个Excel工作表目录的COM加载宏，而Excel加载宏版的Excel各页名，大家可以参见一下/Soft/Html/5.html。 1、创建工程：打开VB6.0，新建一个外接程序，这时程序就创建一个新的工程，这里我们删除新建工程中自己创建的我们这不需要的窗体。然后在工程菜单中的最后一项“XXXX”属性里，把工程的名称修改为：ExcelAllSheets；在工程描述中中加入说明。 2、添加引用：在“工程”菜单中点击“引用”，然后选上“Microsoft Excel 11.0 Object Libray”这个选项，因为我用的是Excel2003版，其它版本的版本号就不是11.0，选择对应的即可。引用后，在代码编写过程中，就可以自动完成对象的属性、方法了。 3、设置设计器属性：在工程资源管理器中双击“Connect（Connect）”，打开设计器设计窗口。在设计器中的外接程序显示名称输入你想要的名称（这里为“ExcelAllSheets”）；外接程序描述中输入外接程序的描述；应用程序选择“Microsoft Excel”；应该程序版本取决于你的电脑装了什么版本的Office，这里使用Excel2003，故选“Microsoft Excel 11.0”；初始化加载行为选择“Startup”。 4、连接Excel：添加一个模块“mduMain”，在模块中定义一个全局变量xlApp，代码如下： Public xlApp As Excel.Application 这样我们就创建了一个Application 对象，用它我们就可以操控Excel了。 5、定义响应按钮事件的类：创建一个类模块，并把它重命名为ButtonEvent，这个名称在后面有用到，然后添加一个响应事件的变量Button，代码如下。 Public WithEvents Button As Office.CommandBarButton 之后就可以创建其响应按钮的事件Button_Click，在这个事件中就可以加入我们的代码： Private Sub Button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) On Error Resume Next Dim AWB As Excel.Workbook Dim ASH As Excel.Worksheet Dim i As Integer Select Case Ctrl.Tag 根据按钮的 Tag 属性决定执行什么动作。 Case ExcelbaZy xlApp.ActiveWorkbook.FollowHyperlink Case ExcelAllSheets If Not (xlApp.ActiveWorkbook Is Nothing) Then xlApp.Application.ScreenUpdating = False Set AWB = xlApp.ActiveWorkbook With AWB If .Worksheets(目录) Is Nothing Then .Worksheets.Add .ActiveSheet.Name = 目录 End If Set ASH = .Worksheets(目录)