ich habe gleich noch ein Thema. Und zwar habe ich eine große Anzahl von Dateien (ca. 100), bei denen ich das Passwort, welches zum Öffnen der Datei notwendig ist, gerne ändern würde. (Passwort ist bei allen Dateien gleich und das soll auch so bleiben, nur soll es ein anderes/sichereres Passwort sein als das, was aktuell verwendet wird.
Dazu habe ich mir ein Makro "recherchiert/zusammengeschustert", welches zwar keine _ Fehlermeldung bringt, aber auch nicht funktioniert und ich verstehe nicht, woran das liegt.
Sub Passwort_ändern()
Application.ScreenUpdating = False
Dim sWbName As String, oFS As Object, oDatei As Object, sBereich As String
Const sDateiPfad As String = "S:\..." 'Pfad für zu durchsuchende Excel-Dateien; mit Backslash _
_
_
am Ende
Set oFS = CreateObject("Scripting.FileSystemObject")
For Each oDatei In oFS.GetFolder(sDateiPfad).Files
sWbName = oDatei.Name
Next
Workbooks.Open (sDateiPfad & sWbName), Password:="pw_alt"
Workbooks(sWbName).Unprotect (pw_alt)
Workbooks(sWbName).Protect (pw_neu)
Workbooks(sWbName).Saved = True
Workbooks(sWbName).Close
Application.ScreenUpdating = False
End Sub
Die Datei wird geöffnet und wieder geschlossen, das Passwort ist bei mir aber danach immer noch das gleiche, also pw_alt, wenn ich die Datei öffnen möchte. Habt ihr hier Tipps für mich?
Danke für eure Mithilfe.
Viele Grüße
Vicky