Thema Datum  Von Nutzer Rating
Antwort
10.08.2023 13:53:46 Simon
NotSolved
10.08.2023 17:39:58 Gast91093
NotSolved
Rot Schreibschutz mehrerer Dateien automatisch entfernen
 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:
11.08.2023 07:01:13		 Views:
378		 Rating:
     
Antwort:
  Ja
Thema:
Schreibschutz mehrerer Dateien automatisch entfernen

Ich kann per Einzelschritte ganz normal bis zur Zeile Do While strFile <> "" navigieren.

Anschließend springt er direkt zur MSG Box, also muss hier wohl der Fehler liegen.

Das Folgende überspringt er quasi, weshalb auch nichts passiert.

' Dokument öffnen
        Set doc = Documents.Open(FileName:=strFolder & strFile, WritePasswordDocument:=strPassword)

        ' Schreibschutz entfernen
        doc.WritePassword = ""

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

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

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
10.08.2023 13:53:46 Simon
NotSolved
10.08.2023 17:39:58 Gast91093
NotSolved
Rot Schreibschutz mehrerer Dateien automatisch entfernen
 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