Office 2010: Datei nach Zeit schliessen funktioniert nicht bei Aufruf aus anderer Datei

[Herberthe]

Hallo alle miteinander und ein gesundes erfolgreiches 2016

Ich habe in einer datei1 folgendes Makro in Module->Modul1:

Sub auto_open()                                                            'Startet mit Programmstart
Zeit = Now + TimeValue("00:02:00")                             ' Läuft 2 min
Application.OnTime Zeit, "Speichern_und_Beenden"     ' Sub "Speichern und Beenden" aufrufen
End Sub

Sub Speichern_und_Beenden()
Dateiname = Application.ThisWorkbook.Name               ' Thisworkbook.Name schliesst das Workbook von dem aus es gestartet wurde
Workbooks(Dateiname).Close SaveChanges:=True      ' Programm gegebenenfalls speichern und beenden
End Sub

Dieses Makro schliesst meine Datei1 nach 2min.
Das funktioniert und ist so gewollt.
Also:Starte ich dies Datei1 wird sie nach 2Min beendet so wie ich es möchte.

Mein Problem:
Starte ich diese Datei1 aber aus einer anderen Datei2 mit dem Makro:

Sub test()
Workbooks.Open "d:\Datei1.xlsm"
End Sub

wird die Datei1 geöffnet, schliesst sich aber nicht mehr nach 2min sondern bleibt auf bis ich sie von Hand schliesse.

Jemand eine Lösungsidee  ?

[Herberthe]

Problemlösung wurde mir mitgeteilt

Sub auto_open     ersetzen durch    Sub workbook_open      und nach   Microsoft Excel Objekte --> Diese Arbeitsmappe verschieben, und klappt.