HERBERS Excel-Forum - die Beispiele

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

Home

Gruppe

Ereignis

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

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ?? Fehler 1004 bei Ontime
Ereignis Arbeitsblatt sperren abfangen Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis laufende ontime anzeigen lassen
application.ontime - irgendwo hängts!!! Change-Ereignis in Combobox unterdrücken
OnTime beenden! Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl Objekt_Error - Ereignis in UserForm
application.ontime change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen? Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse Ausnahmen für Exit-Ereignis
Exit-Ereignis SetFocus select Ereigniss UF Show
Ereignis zeitweise mit Fehler Ereignismakro
Selectereigniss in Spalte doppeltes Klick-Ereignis
Doppelklick-Ereignis VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic change ereigniss nicht ausführen Userform
Exit Ereignis Rekursiven Aufruf von Ereignissen verhindern