Automatisches Speichern

Moin,
ich hätte eine kurze Frage, es gibt ja die Funktion Autospeichern, die dann hilfreich ist, wenn mal der Rechner abstürzt, man aus Versehen den Strom 'geklaut' bekommt oder etwas in dieser Art passiert.
Was aber, wenn man im 'Huddel' mit mehreren offenen Excel-Instanzen aus Versehen die falsche schließt? Und auch die Sicherheitsabfrage mit JA-ICH WILL ;) - beantwortet?
Dumm gelaufen, keine Frage, ist einem Kollegen leider gestern wieder passiert - kann man nicht Excel nicht irgendwie dazu kriegen, das es in einem bestimmten Verzeichnis (c:\tmp) von JEDER offenen Excel-Datei alle 15 Minuten (einstellbar) eine Sicherungskopie anlegt und diese mit Datum+Uhrzeit im Dateinamen versieht?
Nicht das das zu oft passiert, aber hilfreich wäre so eine Funktion für manche Leute schon...
Ich habe etwas gefunden, was Sicherungskopieen (mit Datum...) anlegt WENN man speichert, aber wenn man NICHT speichert und am Ende regulär beendet, dann hilt einem das wenig.
Wäre für Tips dankbar - das müsste dann aber immer funktionieren, also nicht nur mit
einer Datei, sondern wenn man mit Excel arbeitet immer, wenn man eine Datei offen hat...
Tommi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tommi
Ich hab das früher mal so gelöst.
Alle offenen Dateien außer die Person%.xls% werden entsprechend abgearbeitet
Es wird eine .tmp angelegt.
Das Makro "StartAutosave" musst du einmal ausführen (kann natürlich auch über Workbook_Open() in der Person(a)l.xls(B) erfolgen)
Und es läuft immer weiter, bis über "StopAutosave" gestoppt wird.

Sub StartAutosave()
Autosave
End Sub
Sub Autosave()
Dim WB As Workbook, FileSaveName
On Error GoTo Fehler
For Each WB In Workbooks
If WB.Name  "PERSONL.XLS" And _
WB.Name  "PERSONAL.XLSB" Then
If WB.Path = "" Then  'wurde noch nicht gespeichert
FileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
WB.SaveAs FileSaveName
Else
WB.SaveCopyAs _
WB.Path & "\" & WB.Name & ".tmp"
End If
End If
Next
NextInst = Now + TimeValue("00:15:00")
Application.OnTime NextInst, "Autosave"
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
If Err.Number  0 Then Resume Next
End Sub
Sub StopAutosave()
On Error Resume Next
Application.OnTime NextInst, "Autosave", , False
End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread