ich möchte eine Excel-Datei automatisch 15 Minuten nach dem sie geöffnet wurde wieder speichern und schließen lassen. Wie geht das?
Sub auto_open()
Dim Beenden
Application.OnTime Now + TimeValue("00:00:15"), "Beenden"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:15"), "Beenden"
End Sub
Sub Beenden()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub