Thema Datum  Von Nutzer Rating
Antwort
Rot Mehreren dokumenten gleichzeitig schutz aufheben
02.02.2015 07:03:46 Difonzo
NotSolved

Ansicht des Beitrags:
Von:
Difonzo		 Datum:
02.02.2015 07:03:46		 Views:
1080		 Rating:
     
Antwort:
  Ja
Thema:
Mehreren dokumenten gleichzeitig schutz aufheben
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?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mehreren dokumenten gleichzeitig schutz aufheben
02.02.2015 07:03:46 Difonzo
NotSolved