Sicherungskopie mit Anwender
Stefan
ich habe folgendes Problem:
Vor einiger Zeit wurde mir hier ein Makro zur Verfügung gestellt, welches beim Schließen einer Datei eine Sicherungskopie erstellt :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fn As String
If IsBackup Then Exit Sub 'nur wenn dies nicht schon eine Backup-Datei ist:
With ThisWorkbook
fn = .Path & "\" & _
"Nummernvergabe" & "_" & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx"
Application.DisplayAlerts = False
.SaveCopyAs fn
Application.DisplayAlerts = True
End With
'Format(Date, "yy_mm_dd_min_sec")
End Sub
Kann man das Makro so ändern, daß es am Ende des Namens (bisher Nummernvergabe" & "_" & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx) auch noch den Anwender ausgibt?
Kann mir hiermit jemand helfen?
Viele Grüße
Stefan
Anzeige