SaveCopyAs KW- geschützte Mappe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Yal,
ich war eigentlich der Meinung, dass ich mein Problem hinreichend beschrieben habe, aber wenn es uns weiterhilft, hier mein Modul.
Dateien mit Makro Inhalt will ja keiner öffnen.
Private WBN As String 'Workbookname
Private WBA As String 'Workbook Erweiterung
Private Pfad As String 'Zielpfad für Sicherungskopie
Private ZS_1 As String 'Zusatz 1 für Sicherungsname
Private ZS_2 As String 'Zusatz 2 für Sicherungsname


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Mit folgendenMakro wird eine Sicherungskopie pro Tag erzeugt. Innerhalb eies Tages wird die Sicherung überschrieben.
Pfad = "C:\Temp\"    'hier den Pfad eingeben, wo die Sicherung gespeichert werden soll
WBN = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1) 'Dateiname ohne Extension
WBA = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, ThisWorkbook.Name, ".") + 1) 'Datei Extension
ZS_1 = Environ("Username")  'gibt den Windows » de- User « zurück
ZS_2 = Format(Now, " YY_MM_DD") 'gibt die aktuelle Zeit im Format Jah_Monat_Tag
'Die folgende Zeile ist nur bei Dateien mit Passwortschutz notwendig
'If Dir(Pfad & WBN & ZS_1 & ZS_2 & WBA)  "" Then Kill Pfad & WBN & ZS_1 & ZS_2 & WBA
'Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs Pfad & WBN & ZS_1 & ZS_2 & WBA
'Application.DisplayAlerts = True
End Sub

Das Makro funktioniert solange die Mappe kein Kennwort hat.
Wurde die Mappe mit Kennwort gespeichert, funktioniert das Makro 1x danach kommt es zu einem Fehler.
M.f.G.
Berny

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim DateiPfad As String Const cPfad = "C:\Temp\" 'Mit folgenden Makro wird eine Sicherungskopie pro Tag erzeugt. Innerhalb eines Tages wird die Sicherung überschrieben. 'Application.DisplayAlerts = False With ThisWorkbook DateiPfad = cPfad & Split(.Name, ".")(0) & Environ("Username") & Format(Now, " YY_MM_DD") & Split(.Name, ".")(1) If Dir(DateiPfad) "" Then Kill DateiPfad .SaveCopyAs DateiPfad End With 'Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

82 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SaveCopyAs KW- geschützte Mappe

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

82 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