Per VBA Datei speichern mit Passwort

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim strFullName As String Dim strPfad As String, strFile1 As String, strFile2 As String strFullName = ThisWorkbook.FullName strPfad = ThisWorkbook.Path & "\" strFile1 = "mitPW.xlsm" strFile2 = "ohnePW.xlsx" ThisWorkbook.SaveAs Filename:=strPfad & strFile1, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _ Password:="test", WriteResPassword:="test", ReadOnlyRecommended:=False, CreateBackup:=False ThisWorkbook.SaveAs Filename:=strPfad & strFile2, FileFormat:=xlNormal, _ Password:="test", WriteResPassword:="test", ReadOnlyRecommended:=False, CreateBackup:=False Workbooks.Open strFullName ThisWorkbook.Close False End Sub

Dim Pfad As String, Datei As String, PW As String Pfad = "X:\Temp\" Datei = "MeineDatei" PW = "test" With ActiveWorkbook .SaveAs Pfad & Datei & ".xlsm", xlOpenXMLWorkbookMacroEnabled, PW, PW .SaveAs Pfad & Datei & ".xlsx", xlOpenXMLWorkbook, PW, PW End With

Hallo Harald,
hier muss man erst per SaveCopyAs eine Kopie der Datei speichern. Dann die Kopie mit Makros und Passwort per SaveAs speichern.
Zum Schluss dann die XLSX-Datei per SaveAs speichern und die Datei schliessen.
Damit es beim Speichern der Sicherheitskopien keine Probleme gibt Datum und Uhrzeit als eindeutige Unterscheidung in den Namen der Sicherheitskopien einbauen.
Gruß
Franz


Sub Make_Sicherheitskopien()
Dim wkb As Workbook
Dim strNameSK As String
Dim strPfadSK As String
strPfadSK = "F:\löschen\"
strPfadSK = "D:\Test\48Archiv\"
Set wkb = ActiveWorkbook
'Name der Sicherheitskopie muss anders sein als der Name der aktiven Datei!!! _
deswegen DatumZeit eingebaut
strNameSK = strPfadSK & Left(wkb.Name, InStrRev(wkb.Name, ".") - 1) _
& Format(Now, " YYYYMMDD_hhmmss") & ".xlsm"
'Kopie der Datei im Ordner speichern
wkb.SaveCopyAs Filename:=strNameSK
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Sicherheitskopie wieder öffnen
Set wkb = Application.Workbooks.Open(Filename:=strNameSK)
'als XLSM speichern
wkb.SaveAs Filename:=strNameSK, FileFormat:=52, Password:="test", writerespassword:="test", _
addtomru:=False
'Namen der XLSX-Datei festlegen
strNameSK = Left(strNameSK, InStrRev(strNameSK, ".")) & "xlsx"
'als XLSX speichern
wkb.SaveAs Filename:=strNameSK, FileFormat:=51, Password:="test", writerespassword:="test", _
addtomru:=False
'Kopie schliessen
wkb.Close savechanges:=False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

Per VBA Datei speichern mit Passwort

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

148 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per VBA Datei speichern mit Passwort

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

148 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread