Schließen wenn Zeit abgelaufen problem
14.05.2019 08:04:00
Jens
ich habe ein Problem. Ich nutze ein Makro, um eine geöffnete Excelmappe nach 10 min Inaktivität zu speichern und zu schließen.
Dieses funktioniert im Prinzip auch gut.
Leider ist es so, dass einige Kollegen noch andere Exceldokumente neben meines geöffnet haben.
Bei denen ist es jetzt so, dass wenn meine Excelmappe gespeichert und geschlossen wurde, diese nach 10 min wieder aufploppt und wiederholt gespeichert werden muss/soll.
Leider weiß ich nicht warum.. Mein Dokument mit dem Code wurde ja schon längst wieder geschlossen. Also warum kommt mein Dokument nach dem schließen von alleine noch einmal wieder hoch? Habt ihr eine Idee bzw. Lösung für mich?
Folgendes Makro nutze ich:
Diese Arbeitsmappe
Dim altezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 10, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Modul 5
Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub