Backup-Datei Pfadfehler
23.11.2021 14:52:31
Andreas
ich habe ein komisches Verhalten innerhalb meiner Excel-Datei, was ich leider nicht so ganz nachvollziehen kann.
Immer wenn ich die ExcelDatei normal starte, läuft nachfolgendes Macro prima durch. Legt mir ggf. unter dem
WorkbookPfad einen Ordner Backup an und speichert darin brav die Backupdatei nach vorgegebenem Muster.
Jetzt habe ich allerdings ein Problem wenn jemand die Exceldatei schreibgeschützt öffnet. Er wartet und irgendwann kommt die Nachricht Datei wieder verfügbar (jemand hat die datei in Benutzung gehabt und hat sie geschlossen). Dann startet die Mappe ja neu.
In der anschließenden WorkbookOpen Routine wird dann auch die Backupdatei-Routine wie gewohnt aufgerufen. Nur hier erscheint in diesem Falle dann Laufzeitfehler 75, Fehler beim Zugriff auf Pfad/Datei.
Kann sich das einer erklären? Habe ich irgendwo nen Fehler im System :)?
Public Sub Backupdatei_anlegen()
'Automatisches Backup der alten Arbeitsmappe im u.a. Ordner
Dim sPfadBackup As String
Application.DisplayAlerts = False
Application.EnableEvents = False
sPfadBackup = ActiveWorkbook.path & "\Backup\"
If Dir(sPfadBackup, vbDirectory) "" Then
Else
MkDir ActiveWorkbook.path & "\Backup"
End If
ActiveWorkbook.SaveCopyAs ActiveWorkbook.path & "\Backup" & "\Backup " & Format(Now, "YYYY-MM-DD hh'mm") & " Uhr - " & Environ("Username") & " - " & ActiveWorkbook.Name
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub