VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Ereignis

Bereich

OnTime

Thema

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

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und OnTime