Automatisch beenden

mit folgenden code's habe ich die das automatische beenden einer mappe veranlasst:
Private Sub workbook_open()
Application.OnTime Now + TimeSerial(0, 15, 0), "autoende"
End Sub

Sub autoende()
ThisWorkbook.Close savechanges:=True
End Sub

nach 15 minuten wird also die mappe automatisch gespeichert und dann geschlossen. mein problem ist nun, das wenn ich die mappe händisch vor ablauf der 15 minuten schliesse und in einer anderen mappe weiterarbeite, excel den code trotzdem ausführen will, obwohl die andere mappe längst geschlossen ist. wie kann ich das lösen? vielen dank für die hilfe.

Bernd