Die Variante ist zwar kompakter, aber leider funktioniert diese nicht wie gewünscht.
Sobald ich die Datei öffne kommt mir z.b. gleich die Meldung entgegen und nach 4 min. schließt sich die Datei.
Da wir nun nicht mehr 4 min. bei öffnen der Datei warten, bis wir DoClose ausführen, bekommen wir Probleme mit der Abfrage, ob CloseNow True oder False ist.
Denn sobald wir aktuell die Datei öffnen wird die Meldung eingeblendet und CloseNow auf True gesetzt. Wir setzen zwar dann den CloseTImer auf eine Minute, aber schließen die Datei ja dann danach sofort.
Habe mal versucht das ganze neu anzuordnen und habe eine weitere Abfrage hinzugefügt, aber selbst dann ist die Funktion nur bedingt gegeben.
Ich verstehe den Punkt mit einmal aufrufen reicht zwar, aber es würde sich ja nichts überlappen, da wir bei Workbook_Open das ganze nur einmal starten und sonst starten wir das ganze ja dann über DoClose. So haben wir ja theoretisch, wenn ich es richtig verstehe nie zweimal den Timer offen.
Bei Workbook_Open CloseNow = False, hast du natürlich recht, war mal wieder nen Denkfehler von mir.
|