Hallo,
gibt es eine Möglichkeit, die Kennworte vieler Dateien in einem Zug gegen ein neues Kennwort auszutauschen?
Gruß
dkwupp
Kennwort vieler Dokumente im batch ändern
Moderator: Moderatoren
Re: Kennwort vieler Dokumente im batch ändern
Ja, Du kannst die Dokumente per Makro öffnen und ohne Passwort neu speichern. Ungefähr so (nicht getestet):gibt es eine Möglichkeit, die Kennworte vieler Dateien in einem Zug gegen ein neues Kennwort auszutauschen
Code: Alles auswählen
Sub Oeffnen_und_Neuspeichern()
Dim prop(0) as new com.sun.star.beans.PropertyValue
prop(0).Name = "Password"
prop(0).Value = "DeinPasswort"
srcs = GetFileNames("D:\test","*.odt")
Dim i As Integer
For i = 1 to UBound(srcs)
akt_doc = StarDesktop.loadComponentFromURL (ConvertToURL(srcs(i)), "_blank", 0, prop())
url = akt_doc.URL
akt_doc.storeAsURL(url, Array())
akt_doc.Close(true)
Next i
End Sub
Function GetFileNames(dirPath As String, Files As String)
Dim dirValue as String
Dim a(0) As String
Dim n As Long
n = 0
a(n) = dirPath
dirValue = Dir(dirPath & Files)
Do While dirValue <> ""
n = n + 1
Redim Preserve a(n) As String
a(n) = dirValue
dirValue = Dir
Loop
GetFileNames = a
End Function
Stephan