2

オンラインで答えを探していたときに、実際には何も見つかりませんでした。非アクティブ状態が 5 分間続くとマクロが閉じる場所にマクロを配置しました。ユーザーがセルを編集しているときにタイマーが開始されない場合を除いて、魅力のように機能するため、このために閉じられません。ユーザーが編集モードになっている時間のタイマーをExcelに設定する方法はありますか? 編集モードを終了すると、マクロは 5 分間の非アクティブ状態を開始します。どんな助けでも大歓迎です!

これがワークブックモジュールです

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub


Private Sub Workbook_Open()
    start_Countdown
    End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    stop_Countdown
    start_Countdown
    End Sub

これが標準モジュールです

Option Explicit
Public Close_Time As Date
Sub start_Countdown()
    Close_Time = Now() + TimeValue("00:05:00")
    Application.OnTime Close_Time, "close_WB"
    End Sub
Sub stop_Countdown()
    Application.OnTime Close_Time, "close_WB", , False
    End Sub
Sub close_wb()
    ThisWorkbook.Close True
    End Sub
4

2 に答える 2