【Excel】一定時間操作無しで自動閉じる

標準モジュールに上記のようにコマンドを入力

Public operated As Boolean
Sub Settimer()
Application.OnTime Now + TimeValue(“00:05:00”), “CloseMe”
  '00:05:00は、５分で閉じるという意味になります。
End Sub
Sub CloseMe()
If operated Then
operated = False
Settimer
Exit Sub
End If
ActiveWorkbook.Save
ThisWorkbook.Saved = True
If Workbooks.Count <= 1 Then Application.Quit
ThisWorkbook.Close False
End Sub

次に「This Workbook」に上図のコマンドを入力

Private Sub Workbook_Open()
operated = False
Settimer
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
operated = True
End Sub

Private Sub Workbook_Deactivate()
operated = True
End Sub

Private Sub Workbook_Activate()
operated = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
operated = True
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
operated = True
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
operated = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
operated = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
operated = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
operated = True
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
operated = True
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
operated = True
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
operated = True
End Sub