Office: Arbeitsmappe automatisch speichern und schließen nach Zeit x

Guten Tag,

Ich habe folgendes Problem:

Ich führe eine Excel Liste, auf die verschiedene Büros Zugriff haben und diese bearbeiten.

Nun brauche ein ein Makro, bei dem die Liste nach einer Zeit x (5min zb.) gespeichert und geschlossen wird, damit ein anderes Büro darauf zugreifen kann und sie bearbeiten kann.
Hat jemand schon einmal so ein Makro benutzt oder kann ein solches erstellen?

Vielen Dank für die Hilfe!

 

Hallo,

ein Ansatz:

Code:

Dim TT
Sub sb_Timing(Optional ByVal Bo As Boolean)
If Bo Then
    TT = Now + TimeSerial(0, 10, 0)	' 10 Minuten
    Application.OnTime TT, "sb_Sichern"
Else
    Application.OnTime TT, "sb_Sichern", , Bo
End If
End Sub

Sub Timer_start()
    sb_Timing (True)
End Sub


Sub sb_Sichern()
sb_Timing (False)
thisworkbook.save
thisworkbook.close 0
End Sub

mfg