Teste mal (ich kann das ohne deine Datei nicht) .
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
CloseTimer = Now + TimeSerial(0, 4, 0)
CloseNow = False
End Sub
Dim strMsg As String
If Übersicht.Range("A1").Value = 1 Then Exit Sub
CloseTimer = Now + TimeSerial(0, 4, 0)
If CloseNow = True Then CloseTimer = Now + TimeSerial(0, 1, 0)
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
Else
ThisWorkbook.Close SaveChanges:=False
End If
Application.OnTime CloseTimer, "DoClose"
End Sub