VBA-Beispiel 064
mail schreiben
mail schreiben

Exceldatei automatisch speichern

Diese Prozedur speichert eine Exceldatei alle 5 Sekunden. Zur Verdeutlichung erscheint jedoch vorher eine Abfrage.
In der Beispieldatei wird dieses Makro durch eine Workbook_Open-Prozedur angestoßen.
Private Sub Workbook_Open()
  Call auto_speichern
End Sub

Sub auto_speichern()
'speichert diese Datei nach Rückfrage alle 5 Sekunden
'angestoßen wird dieses Makro durch eine Workbook_Open Prozedur
'im Modul "DieseArbeitsmappe"

Dim Antwort As Integer

Antwort = MsgBox("Datei speichern?", vbYesNo, "")

If Antwort = 6 Then
    Application.OnTime Now + TimeSerial(0, 0, 5), "auto_speichern"
    ThisWorkbook.Save
Else
    Exit Sub
End If  

End Sub


Download:   vba064.zip