Thema Datum  Von Nutzer Rating
Antwort
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
Blau Schreibschutz mehrerer Dateien automatisch entfernen
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 10:58:13
Views:
276
Rating: Antwort:
  Ja
Thema:
Schreibschutz mehrerer Dateien automatisch entfernen

Ich glaube ich gebs auf...

Er überspringt in jedem Fall den Lopp und ich verstehe nicht wieso.

Ich werde es nochmal auf andere weiße Probieren, die mir eig eh lieber wäre, da die Originaldatei bleibt wie sie ist und ich für meine Zwecke einfach die Datei ohne Schreibschutz kopiere. Problem ist, dass das Makro aktuell nur bei Word97 Dateien funktioniert. Wenn ich beim Quellverzeichnis das .doc auf .docx bzw um beides zu bearbeiten .doc* ändere, bekomme ich bei der ersten docx datei beim Schritt 'Worddatei ohne Passwort schreiben, einen Laufzeitfehler 6294.  Mit folgendem Makro:

Sub WordDateienEntsperren()
' Entfernt das Passwort von allen Word-Dateien aus Quelle und
' schreibt die Worddateien ohne Passwort nach Ziel
Const Quellverzeichnis = "C:\Users\sbutz\Desktop\Test1"
Const Zielverzeichnis = "C:\Users\sbutz\Desktop\Test1 neu"
Const MyPasswort = "**"

Dim DatNam As String
DatNam = Dir(Quellverzeichnis & "\*.doc") '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


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
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
Blau Schreibschutz mehrerer Dateien automatisch entfernen
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