嘿，我刚好能帮你解决这个问题！你提到之前用Kutools的代码没检测闲置状态就直接关闭文件，下面这段VBA代码会严格跟踪你的操作行为，只有当连续闲置达到设定时间后，才会自动保存并关闭当前工作簿。

实现思路 #

核心是通过捕获用户的Excel操作事件（比如选单元格、改内容）来重置闲置计时器，再用定时任务检查是否达到闲置阈值，触发保存和关闭动作：

• 用Application.OnTime定时执行闲置检查
• 各类工作表事件（选择变化、内容修改）触发计时器重置
• 闲置时间达标后，自动保存并关闭文件

完整代码（复制到ThisWorkbook模块） #

打开你的Excel文件，按Alt+F11打开VBA编辑器，找到左侧的ThisWorkbook，双击后粘贴以下代码：

Dim idleTime As Date
Dim closeTime As Date

Private Sub Workbook_Open()
    ' 这里设置闲置时间，比如10分钟，可自行修改
    idleTime = TimeValue("00:10:00")
    ' 打开文件时启动计时器
    ResetTimer
End Sub

Private Sub ResetTimer()
    ' 重置关闭时间：当前时间 + 闲置阈值
    closeTime = Now + idleTime
    ' 到点触发检查逻辑（如果中途有操作会被重置）
    Application.OnTime closeTime, "CheckIdleStatus"
End Sub

Private Sub CheckIdleStatus()
    ' 如果当前时间超过预设关闭时间，说明已经闲置够久了
    If Now > closeTime Then
        ' 先保存工作簿
        ThisWorkbook.Save
        ' 关闭文件（因为已经保存过，这里设为False避免重复提示）
        ThisWorkbook.Close SaveChanges:=False
    Else
        ' 还没闲置够，继续定时检查
        ResetTimer
    End If
End Sub

' 用户切换单元格时重置计时器
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ResetTimer
End Sub

' 用户修改单元格内容时重置计时器
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ResetTimer
End Sub

' 窗口激活时重置计时器（比如切回Excel窗口）
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    ResetTimer
End Sub

' 窗口失活时暂停计时（可选，避免切到其他软件时误关闭）
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    On Error Resume Next
    ' 取消之前的定时任务
    Application.OnTime closeTime, "CheckIdleStatus", Schedule:=False
    On Error GoTo 0
End Sub

关键细节说明 #

• 调整闲置时间：把idleTime = TimeValue("00:10:00")里的时间改成你需要的，比如"00:30:00"就是30分钟，"00:00:10"适合快速测试效果。
• 为什么不会误关闭：只要你有任何操作（选单元格、改内容、切回Excel窗口），计时器都会立刻重置，只有连续没操作达到设定时间才会触发关闭。
• 宏启用提示：打开文件时要启用宏，否则代码不会运行哦。

内容的提问来源于stack exchange，提问作者Pedro Gaspar