Automatisch speichern
14.12.2002 13:41:17
Dietmar E
Dieses
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
Sollte die Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen.
Bei mir tut sich aber gar nichts.
Was könnte ich da falsch gemacht haben?
Anzeige