Thema: temp. Speicherdatei zurückholbar???

Hallo Spezialisten
Ich habe jetzt mind 5 Std an einer Datei gebastelt, Formeln und Makros...
Da ich mehrere Dateien geöffnet hatte und verschiedene schließen wollte, habe ich bei der falschen Datei bei der Frage "Speichern Ja/nein" auf Nein gedrückt.
Alles Weg? Oder gibt es eine Möglichkeit an die Automatische Zwischenspeicherdatei heranzukommen?
Hoffe ja
Gruß UweD

Hallo Uwe
schau mal auf diese Seite. Unter Fragen und Antworten lfd.Nr. 61
Da steht wann und wie

http://xlam.ch/soscq/index.htm

Gruss Hary
PS.: Schalte die Automatische Speicherung ein ;-)

Hallo
Das ist nicht das was ich meine:
Die automatische Speicherung ist ja eingeschaltet.
Excel legt dabei alle x Minuten Temporäre Dateien an, die z.B. bei einem Absturz erhalten bleiben
Starte ich dann Excel neu wird angezeigt, ob diese wiederhergestellt werden sollen.
Wird die Datei normal geschlossen wird diese Temp-datei gelöscht.
Da war meine Frage, wo finde ich dise Datei evtl. noch und wie bekomme ich diese zurück.
Gruß UweD

Hi UweD,
Sehr schwierig. Ev. mit einem Disk-Recovery-Tool, dass gelöschte Dateien wieder freigibt.
Ich schätze aber die Wahrscheinlichkeit als äusserst minim ein, v.a. dann, wenn du in der Zwischenzeit an anderem weitergearbeitet hast!
GreetZ Renée

Hallo
das mit dem Rettungstool hat nicht geklappt.
Da wird das ganze Laufwerk durchsucht, man kan keine Verzeichnisse angeben.
Da das ganze auf dem Server liegt... keine Chance.
Ich hab die Datei jetzt neu zusammengestellt.
Aber vorher noch eine TMP- Speichermakro aktiviert.
Wer Interesse hat:

VB-Code:

Sub StartAutosave()     Autosave End Sub Sub Autosave()     Dim WB As Workbook, NextInst As Date     On Error GoTo Fehler     For Each WB In Workbooks         If WB.Name <> "PERSONL.XLS" Then             WB.SaveCopyAs _                 WB.Path & "\" & WB.Name & ".tmp"         End If     Next     NextInst = Now + TimeValue("00:05:00")     Application.OnTime NextInst, "Autosave" Fehler:     If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear     Application.EnableEvents = True     Application.DisplayAlerts = True     If Err.Number <> 0 Then Resume Next End Sub Sub StopAutosave()     Dim NextInst     On Error Resume Next     Application.OnTime NextInst, "Autosave", , False End Sub