加载宏的加载与卸载

 加载宏的加载与卸载

节选自罗刚君著《Excel VBA范例大全》

【技巧说明】加载宏的加载与卸载。

【案例介绍】加载宏可以有条件地加载与卸载。本例中将所有加载宏加载，使用三天后再卸载所有加载宏，也可指定加载、卸载某个加载宏。

【案例实现】参见以下步骤：

 使用快捷键Alt+F11进入VBE（Visual Basic Editor）环境。

 单击菜单【插入】/【模块】，打开模块代码窗口。

 在右边代码窗口输入以下代码：

Sub 存为加载宏()

ThisWorkbook.IsAddin = True   '将工作簿转为加载宏

ThisWorkbook.SaveAs Application.StartupPath & "/三天后取消加载宏.xla", 18 '将工作簿存于自启动文件夹

End Sub

Sub auto_open()

   Dim i As Byte, dat As Date

   dat = #8/22/2007#     '首先取得今日日期

   If Date > dat + 3 Then   '如果日期是3天之后

   For i = 1 To Application.AddIns.Count  '遍历加载宏

   AddIns(i).Installed = False        '全部卸载

   Next i

   Else

   For i = 1 To Application.AddIns.Count

   AddIns(i).Installed = True  '全部加载

  Next i

  End If

End Sub

 将光标定位于第一个程序“存为加载宏”处，然后用F5键执行程序，工作簿马上变为了加载宏并存在自启动文件夹下。

 关闭VBE窗口并关闭工作簿。

 开启一个新工作簿，打开加载宏窗口，可以发现所有加载宏都已加载，如图16.4所示。

 三天后或者将系统时间修改为三天后，再打开加载宏窗口，则所有列表中的加载宏已取消，如图16.5所示。