工作簿长时间空闲时自动关闭

---

1. 对关闭时间和关闭工作薄进行设置

在新建模块中声明一个时间作为全局的变量，该变量将是每次工作薄发生改变后延续的时间，另外再设置一个工作薄关闭的过程。

代码如下：

Public RunWhen As Double
Public Const NUM_MINUTES = 5 '定义自动关闭的时间(分钟)

Sub SaveAndClose()
    ThisWorkbook.Close savechanges:=