Backup bei freigegebener Arbeitsmappe

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Backup bei freigegebener Arbeitsmappe
von: Daniel
Geschrieben am: 06.08.2015 10:22:12

Hallo zusammen,
ich administriere eine Datei, die von einer Handvoll Personen genutzt wird. Da sich auf diese Art immer mal wieder Fehler einschleichen, lasse ich per VBA einfach bei jedem Speichervorgang parallel ein Backup wegsichern. Nun würde ich diese Arbeitsmappe gern freigeben, dabei funktioniert das Makro aber nicht mehr. Habt ihr eine Idee, wie ich das Problem lösen kann?


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim WB As Workbook
Dim BackupFileName As String
Dim OK As Boolean
Const sPath As String = "J:\Wirtschaftlichkeit\Wirtschaftlichkeit von Vorhaben- und Projekten\ _
Archiv\Sponsorziele_Backup\"
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set WB = ThisWorkbook
BackupFileName = Left(WB.Name, Len(WB.Name) - 5)
BackupFileName = sPath & BackupFileName & " " & Format(Now, "ddmmyy_HHmmss") & ".xlsm"
OK = False
On Error GoTo NotAbleToSave
With WB
    .Save
    .SaveCopyAs BackupFileName
    OK = True
End With
NotAbleToSave:
    Set WB = Nothing
    If Not OK Then
        MsgBox "Konnte kein Backup speichern!", vbExclamation, ThisWorkbook.Name
    End If
End Sub

Hinweis: Das kurzzeitige Setzen eines exklusiven Zugriffs im Code ist für mich keine Alternative, da dadurch alle anderen Nutzen aus der Arbeitsmappe geworfen werden.

Bild

Betrifft: AW: Backup bei freigegebener Arbeitsmappe
von: Daniel
Geschrieben am: 07.08.2015 10:43:30
Keiner eine Idee? Im ersten Moment wirkte die Fragstellung auf mich erstmal recht unproblematisch... ;-)

Bild

Betrifft: AW: Backup bei freigegebener Arbeitsmappe
von: Rudi Maintaire
Geschrieben am: 07.08.2015 12:28:33
Hallo,
hast du es schon per CopyFile-Methode versucht?
Gruß
Rudi

Bild

Betrifft: AW: Backup bei freigegebener Arbeitsmappe
von: Daniel
Geschrieben am: 07.08.2015 13:14:19
Hallo Rudi,
nein - hatte ich noch nicht. Das ist genau der Ansatz, den ich brauchte - nun funktioniert es! :-)
Besten Dank und ein schönes Wochenende schon mal!
Daniel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Backup bei freigegebener Arbeitsmappe"