Hallo Excelforum,
über folgendes Makro öffne ich alle Excel-Dateien in einem Verzeichnis. Diese Dateien sind mit einem Paßwort geschützt.
Dim fso As New Scripting.FileSystemObject
Dim f As Scripting.File
Dim wb As Excel.Workbook
For Each f In fso.GetFolder("F:\.......").Files
Set wb = Excel.Workbooks.Open(f.Path _
, Password:="mein Paßwort" _
, IgnoreReadOnlyRecommended:=True _
, UpdateLinks:=0)
ActiveWorkbook.Close Savechanges:=True
Ich möchte nun bevor die Datei gespeichert und geschlossen wird, das Paßwort ändern.
Hat jemand eine Idee wie dies umgesetzt werden kann?
Freundliche Grüße
Daniel