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
Blau Schreibschutz mehrerer Dateien automatisch entfernen
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 09:11:28
Views:
231
Rating: Antwort:
  Ja
Thema:
Schreibschutz mehrerer Dateien automatisch entfernen

Ich hätte noch folgendes makro, das funktioniert leider nur bei Word97 also .doc Dokumente. Mit dem neueren Word haben Sie jetzt die Endung .docx.
Wenn ich die Endung im Makro auf .docx oder .doc* ausbessere, um auch neuere Formate damit zu ändern, bekomme ich allerdings beim Schritt 'Worddatei ohne Passwort schreiben, einen Laufzeitfehler 6294.

 

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