首页 > 代码库 > 强制启动宏

强制启动宏

????接着昨天,为了用户的需求,写好了VBA代码,但问题又来了,如果用户禁用宏怎么办,就达不到想要的效果了。那么怎么才能强制启动宏文件呢?

????测试了在关天,代码如下:

  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. ThisWorkbook.IsAddin = True
  3. End Sub
  4. ?
  5. Private Sub Workbook_Open()
  6. ThisWorkbook.IsAddin = False
  7. End Sub

????这里比较关键的有两个事件,一个是工作簿打开时执行事件,另一个工作簿关闭时执行事件;比较关键的属性是工作簿的IsAddIn事件,它的副作用是如果工作簿打开后进行了更改,不会提示保存工作簿。

强制启动宏