如果Excel中沒有活動，請關閉工作簿

Question

這是我的代碼，理論上可以正常工作。 我的問題是，當我鍵入或編輯工作表時，工作表會保存並關閉。

這樣就可以了，只是在我完全在工作簿中工作時它不會重置計時器。

Option Explicit
Private Sub Workbook_Open()
    EndTime = Now + TimeValue("00:05:00")
    RunTime
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If EndTime Then
        Application.OnTime _
                EarliestTime:=EndTime, _
                Procedure:="CloseWB", _
                Schedule:=False
        EndTime = Empty
    End If
    EndTime = Now + TimeValue("00:10:00")
    RunTime
End Sub

現在，它位於ThisWorkbook中，認為它應該包含所有內容。 我想念什么嗎？ 計時器顯然不會在應設置的時間復位。

Answer 1

據我所知，取消時間表的呼叫無法正常工作的唯一原因可能是：

• 過程名稱不同（CloseWB）或
• 自最初安排任務以來，EndTime已更改，或者
• 運行時所做的事情使工作簿關閉...