Option Explicit
Public CloseTimer As Date, CloseNow As Boolean
Public Sub DoClose()
Dim strMsg As String
If Übersicht.Range("A1").Value = 1 Then
Exit Sub
End If
If CloseNow = False Then
strMsg = "Diese Datei wurde seit 4 Minuten nicht bearbeitet und" & vbCrLf & _
"wird bei weiterer Inaktivität in 1 Minute geschlossen."
CreateObject("WScript.Shell").PopUp strMsg, 10, ThisWorkbook.Name, _
vbOKOnly + vbInformation + vbSystemModal
CloseNow = True
CloseTimer = Now + TimeSerial(0, 1, 0)
Application.OnTime CloseTimer, "DoClose"
Else
ThisWorkbook.Close SaveChanges:=False
End If
End Sub