Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen

Gruppe

OnTime

Problem

Wie kann ich eine Arbeitsmappe 5 Sekunden, nachdem sie geöffnet wurde, automatisch speichern und schließen lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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