Excel / VBA Optimierung

Sub BackUp() 'Erstellt ein Backup der aktuell geöffneten Excel-Datei auf demselben Pfad ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _ "\" & "[Backup]" & " " & _ ThisWorkbook.Name 'Versteckt die Backup-Datei SetAttr ThisWorkbook.Path & _ "\" & "[Backup]" & " " & _ ThisWorkbook.Name, vbHidden End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ralf,
danke für deinen Input. Die Idee das Attribut der zuletzt erstellten Backup Datei anzupassen, sodass diese überschrieben werden kann war an sich gut. Leider ist dies hier aber nicht möglich, da beim erstmaligen Öffnen der Excel logischerweise noch kein Backup existiert und daher auch keine solche Datei "wieder sichtbar" i.S.v. vbNormal gemacht werden kann. Dies führt spätestens beim Schritt 1 zu einer Fehlermeldung (siehe unten).
Hier zur Veranschaulichung der Ablauf des Codes:


Schritt 1:
'Offenbart die alte Backup-Datei
SetAttr ThisWorkbook.Path & _
'"\" & "[Backup]" & " " & _
ThisWorkbook.Name, vbNormal
Schritt 2
'Erstellt ein Backup der aktuell geöffneten Excel-Datei auf demselben Pfad
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _
"\" & "[Backup]" & " " & _
ThisWorkbook.Name
Schritt 3
'Versteckt die neue Backup-Datei
SetAttr ThisWorkbook.Path & _
"\" & "[Backup]" & " " & _
ThisWorkbook.Name, vbHidden

Super wäre natürlich, wenn ein Code existiert mit dem man den ersten Schritt erst beim zweiten Öffnen der Excel ausführen kann.
Tausche ich die Schritte 1 und 2 von der Reihenfolge bekomme ich komischerweise beim zweiten Öffnen (also nachdem erfolgreich die erste Backup-Datei erstellt wurde) einen Laufzeitfehler (siehe Screenshot).
Userbild

Ziel des Backup-Verfahrens ist es, immer die letzte funktionierende Version der Excel Datei abzuspeichern. Sollte es jemand schaffen, die Excel Datei wie auch immer kaputt zu machen, sodass diese sich nicht mehr öffnet, würde der Backup Code auch nicht ausgeführt werden und es kann auf die zuletzt funktionierende Excel Datei zugegriffen werden, bei welcher der Code noch ausgeführt wurde.
Ich kann nicht jedes Mal beim Öffnen eine neue Backup Datei erstellen, da die Datei von mehreren Personen genutzt wird, bis zu 80 Mal pro Tag geöffnet wird, über Jahre hinweg genutzt und zentral auf einem Consumer-PC gespeichert wird.
Da wäre selbst die größte Festplatte früher oder später voll. Manuelles löschen kommt nicht infrage, da ich dies nicht kontrollieren kann.
Gruß
Excel Friend

(1) 'Erstellt einen Ordner im Verzeichnis der aktuell geöffneten Datei Dim strPfad As String strPfad = ThisWorkbook.Path If strPfad > "" Then If Dir(strPfad & "\[Backups]", vbDirectory) = "" Then MkDir strPfad & "\[Backups]" Else MsgBox "Datei ist noch nicht gespeichert." End If (2) 'Erstellt ein Backup der aktuell geöffneten Excel-Datei auf demselben Pfad der aktuell geöffneten Datei ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _ "\" & "[Backup]" & " " & _ ThisWorkbook.Name

'Erstellt ein Backup der aktuell geöffneten Excel-Datei auf demselben Pfad der aktuell geöffneten Datei ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _ "\" & "[Backup]" & " " & _ ThisWorkbook.Name

Hallo Excel (man spricht sich im Forum per Vornamen an ;-)
don't reinvent the wheel: Du muss nur die Windows-Funktion richtig einsetzen (wenn ich davon ausgehen darf, dass es Dir nicht darum geht, deine VBA-Programmierkompetenz zu erweitern):
Wenn Du auf einer Datei im Win-Explorer rechtklickst, siehst Du einen "Vorgängerversionen wiederherstellen". Diese funktioniert nur, wenn vorab die Funktion der "Dateiversionsverlauf" auf dem Rechner bzw. Netzlaufwerk eingeschaltet ist. Siehe:
https://support.microsoft.com/de-de/windows/sichern-und-wiederherstellen-in-windows-352091d2-bb9d-3ea3-ed18-52ef2b88cbef
Es sollte auch einstellbar sein, mit welcher Taktung (vielleicht sogar pro "neue Version") gespiegelt werden soll. Auch die maximale Dauer des Behalten, in Zeit oder Anzahl von Versionen, sollte einstellbar sein (kann auf meinem zentralverwalteten Rechner nicht reinkommen).
Da diese Mechanismus für eine Excel-Datei ein Deduplizierungsalgorithmus verwendet, wird tatsächlich, trotz verschiedene sichtbare "Versionen", nur die einzelne Änderungen gespeichert, sodass die Festplatten-Belegung optimiert ist (was bei max 50 EUR/TB sowieso nicht die Rede Wert ist).
VG
Yal

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread