Beim Speichern Sicherungskopie erstellen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias,
gegen konkrete Hilfe will ich mich nicht wehren. ;-)) Unten meinen ganzen aktuellen Stand.
Ich hatte bis jetzt drei Ansätze ergoogelt und getestet, die ersten beiden sind auskommentiert...
Danke nochmal


Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim PathDestination As String, FileDestination As String, FileSource As String
Dim FileExist As Boolean, bln As Boolean, IsCopySaved As Boolean
FileSource = "D:\" & ActiveWorkbook.Name
PathDestination = "D:\test\"
FileDestination = PathDestination & "Kopie.xls"
If (FileDestination = "" Or FileSource = "") Then GoTo ENDE 'Datei wird trotzdem  _
gespeichert!
FileExist = Dir$(FileSource)  ""
If (FileExist = False) Then GoTo ENDE 'Datei wird trotzdem gespeichert!
FileExist = Dir$(PathDestination)  ""
If (FileExist = False) Then GoTo ENDE 'Datei wird trotzdem gespeichert!
''   Application.DisplayAlerts = False
'    If bln = False Then
'        Cancel = True
'        bln = True
'        ThisWorkbook.SaveAs Filename:=FileDestination
'        ThisWorkbook.Save
'        ThisWorkbook.Saved = True
'        bln = False
'    End If
''   Application.DisplayAlerts = True
'    FileCopy FileSource, FileDestination
ThisWorkbook.SaveAs Filename:=FileDestination
ThisWorkbook.SaveAs Filename:=FileSource
ENDE:
End Sub

Hallo nochmal,
unten findest Du zunächst mal die konkreten Antworten auf Deine konkreten Fragen.
Prinzipiell soll folgendes passieren:
Wenn eine Datei gespeichert wird, soll eine Kopie an einem anderen Ort abgelegt werden, weil die Originaldatei nicht von jedem zugänglich ist. Die Kopie hat also nur Lesecharakter.
(im Fallbeispiel arbeite ich mit lokalen Platten, in der Praxis wird es sich aber um verschiedene Netzlaufwerke handeln, weshalb eine Verknüpfung nicht in Frage kommt)
Die Frage ist jetzt also wie ich das Save-Event in den Griff bekomme...
Vielen Dank
Larsînator
1. willst du die Sicherungskopie auch speichern, wenn man im Menü "Datei, Speichern unter..." wählt?
Das ist kein praxisrelevanter Fall (s. Beschreibung) und muss daher auch nicht berücksichtigt werden.
2. In welchen Ordner soll die Sicherungskopie gespeichert werden?
Der Pfad ist fix und im SourceCode exemplarisch belegt:
FileSource = "D:\" & ActiveWorkbook.Name
PathDestination = "D:\test\"
FileDestination = PathDestination & "Kopie.xls"
3. Wie soll der Dateiname der Kopie lauten, soll er sich aus dem ursprünglichen Dateinamen ableiten?
s.o.
4. Was soll passieren, wenn die Sicherungskopie geöffnet und gespeichert wird (siehe meine erste Antwort)?
Das stimmt, das könnte ich noch berücksichtigen, dass die Prozedur dann nicht abläuft - also abhängig von ActiveWorkbook.Name.

Beliebteste Forumthreads (12 Monate)

Beim Speichern Sicherungskopie erstellen?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beim Speichern Sicherungskopie erstellen?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread