Thema Datum  Von Nutzer Rating
Antwort
Rot Schreibschutz mehrerer Dateien automatisch entfernen
10.08.2023 13:53:46 Simon
NotSolved
10.08.2023 17:39:58 Gast91093
NotSolved
11.08.2023 07:01:13 Simon
NotSolved
11.08.2023 09:11:28 Simon
NotSolved
11.08.2023 10:32:07 Gast76169
NotSolved
11.08.2023 10:58:13 Simon
NotSolved
13.08.2023 13:34:50 Lisa
NotSolved
13.08.2023 22:41:34 Gast7317
NotSolved
14.08.2023 11:16:31 Gast911
NotSolved
17.08.2023 07:46:56 Simon
NotSolved
17.08.2023 09:17:06 Simon
Solved

Ansicht des Beitrags:
Von:
Simon
Datum:
10.08.2023 13:53:46
Views:
763
Rating: Antwort:
  Ja
Thema:
Schreibschutz mehrerer Dateien automatisch entfernen

Vorweg, es geht mir nicht darum den Schreibschutz zu umgehen, die Passwöter der Dokumente weiß ich.
Beim öffnen des Dokuments wird man gebeten, "Kennwort für Schreibzugriff eingeben oder mit Schreibschutz öffnen".

Nun habe ich das Problem, dass ich die Dokumente ins Programm CAQ übertragen möchte. Das klappt soweit auch, allerdings muss ich jedesmal zweimal das Passwort eingeben, einmal bei der Dokumentüberprüfung und bei der Übertragung nochmal(ist leider vom Programm so festgelegt)

Da ich mehr als 200.000 Dokumente übertragen muss, ist es viel zu aufwendig mehr als 400.000mal das Passwort einzugeben.

Nun bin ich auf der Suche wie ich durch z.B. ein VBA Modul automatisch von allen Dokumenten den Schreibschutz entfernen kann.

Erste Idee war so, allerdings passiert hier nichts, außer das mit die MsgBox angezeigt wird.

Kann mir jemand helfen, wo liegt der Fehler?

Idee des Maktros ist einfach, dass es die Schritte automatisch ausführt, die ich auch machen müsste. Also:

Datei öffnen, Passwot eingeben und bestätigen, Schreibschutz vom Dokument entfernen, speichern und schließen, dann automatisch nächstes Dokument im Ordner nehmen.

 

Habt ihr eine Idee wo der Fehler liegen könnte? Habt ihr vll noch eine efficientere Lösung? Es handelt sich um viele Ordner, die dann auch wieder unterordner haben und so weiter. Außerdem hab ich das gleiche Problem dann bei Exceldokumenten auch noch, gibt es vll eine Möglichkeit alles in einem Abwasch zu machen?

Sub RemoveWriteProtection()
    Dim strFolder As String
    Dim strPassword As String
    Dim strFile As String
    Dim doc As Document

    ' Ordnerpfad angeben, in dem sich die Dokumente befinden
    strFolder = "C:\Pfad\zu\den\Dokumenten\"

    ' Passwort für die Dokumente angeben
    strPassword = "DeinPasswort"

    ' Alle Word-Dokumente im angegebenen Ordner durchlaufen
    strFile = Dir(strFolder & "*.docx")
    Do While strFile <> ""
        ' Dokument öffnen
        Set doc = Documents.Open(FileName:=strFolder & strFile, PasswordDocument:=strPassword)

        ' Schreibschutz entfernen
        doc.Unprotect Password:=strPassword

        ' Dokument speichern und schließen
        doc.Save
        doc.Close

        ' Nächstes Dokument in Ordner durchlaufen
        strFile = Dir
    Loop

    MsgBox "Schreibschutz wurde entfernt."
End Sub

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 Schreibschutz mehrerer Dateien automatisch entfernen
10.08.2023 13:53:46 Simon
NotSolved
10.08.2023 17:39:58 Gast91093
NotSolved
11.08.2023 07:01:13 Simon
NotSolved
11.08.2023 09:11:28 Simon
NotSolved
11.08.2023 10:32:07 Gast76169
NotSolved
11.08.2023 10:58:13 Simon
NotSolved
13.08.2023 13:34:50 Lisa
NotSolved
13.08.2023 22:41:34 Gast7317
NotSolved
14.08.2023 11:16:31 Gast911
NotSolved
17.08.2023 07:46:56 Simon
NotSolved
17.08.2023 09:17:06 Simon
Solved