|
Hallo zusammen
Ich muss gestehen dass ich von VBA Programmierung noch nicht soviel Ahnung habe, daher frage ich euch.
Ich habe im SharePoint - eine Biblitohek mit mehreren docx Dokumente ink. Passwordschutz.
Da ich die Dokumente bearbeiten muss wollte ich sie für eine kurze Zeit "Ungeschützt" haben und dann nach der Bearbeitung wieder "Schützen".
Ich habe dieses Code allerdings bei "Const Quellverzeichnis" trage ich die URL ein und es passiert nichts.
Sub WordDateienEntsperren()
' Entfernt das Passwort von allen Word-Dateien aus Quelle und
' schreibt die Worddateien ohne Passwort nach Ziel
Const Quellverzeichnis = "http"
Const Zielverzeichnis = "https"
Const MyPasswort = "test"
Dim DatNam As String
DatNam = Dir(Quellverzeichnis & "\*.docx") '1. Dateinamen holen
Do Until DatNam = "" 'Alle Files im VZ abklappern
' Worddatei mit Passwort öffnen
Documents.Open FileName:=Quellverzeichnis & "\" & DatNam, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:=MyPasswort, PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:=MyPasswort, WritePasswordTemplate:= _
"", Format:=wdOpenFormatAuto
' Worddatei ohne Passwort schreiben
ActiveDocument.SaveAs FileName:=Zielverzeichnis & "\" & DatNam, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
' Dokument schließen
ActiveDocument.Close
' nächste Datei holen
DatNam = Dir
Loop
End Sub
Weisst jemandem wo ich die Fehler mache? |