Excel Dateien per Makro verschlüsseln
25.09.2020 08:01:04
Kai
in der Vergangenheit wurde mir bereits dabei geholfen ein Makro zu erstellen um Exceldateien mit den mir bekannten Passwörtern zu entschlüsseln.
Leider bekomme ich die Umkehraktion, Exceldateien mit von mir festgelegten Passwörtern zu verschlüsseln, nicht hin. Über eine Unterstützung würde ich mich sehr freuen.
Anbei das Makro zur Entschlüsselung:
Public Sub Entschlüsselung_1()
Dim objWorkbook As Workbook
Set objWorkbook = Workbooks.Open(Filename:="\\Speicherort\Excel1.xlsx", _
Password:="XYZ123")
objWorkbook.Password = vbNullString
Call objWorkbook.Close(SaveChanges:=True)
Set objWorkbook = Nothing
Set objWorkbook = Workbooks.Open(Filename:="\\Speicherort\Excel2.xlsx", _
Password:="UVW456")
objWorkbook.Password = vbNullString
Call objWorkbook.Close(SaveChanges:=True)
Set objWorkbook = Nothing
End Sub
Kai