Gruppe
Ereignis
Problem
Wie kann ich eine Arbeitsmappe 5 Sekunden, nachdem sie geöffnet wurde, automatisch speichern und schließen lassen?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Application.OnTime Now + _
TimeSerial(0, 0, 5), "AutomatischSpeichern"
End Sub
StandardModule: basMain
Sub AutomatischSpeichern()
ThisWorkbook.Close savechanges:=True
End Sub