Office: Mehrere Dokumente gleichzeitig schützen?

Helfe beim Thema Mehrere Dokumente gleichzeitig schützen? in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hi Leute! Ich verwende MS Word 2003 und müsste mehre Dokumente (ca. 180) schützen. Ein einzelnes Dokument kann ich über Extras=>Dokument schützen... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von platten_kratzer, 3. August 2006.

  1. Mehrere Dokumente gleichzeitig schützen?


    Hi Leute!

    Ich verwende MS Word 2003 und müsste mehre Dokumente (ca. 180) schützen. Ein einzelnes Dokument kann ich über Extras=>Dokument schützen bearbeiten, aber bei 180 werde ich mit dieser Prozedur alt. Gibt es einen Stapelverarbeitungsbefehl für diese Funktion oder ein kleines Tool?

    Für eure Hilfe wäre ich sehr dankbar!
     
    platten_kratzer, 3. August 2006
    #1
  2. Wordmouse Erfahrener User
    Wordmouse, 3. August 2006
    #2
  3. @Wordmouse: Danke für die rasche Antwort! Ich hab mir den Quellcode durchgelesen.

    Was ich jedoch vermisse:
    -Passwortvergabe für die zu schützenden Dokumente
    -die Funktion "Dokument schützen" aktivieren (und dabei auch angeben können, welche Teile man schützen will: alles, Formular...)

    Weiß noch jemand Rat?

    Besten Dank im Voraus!
     
    platten_kratzer, 3. August 2006
    #3
  4. Wordmouse Erfahrener User

    Mehrere Dokumente gleichzeitig schützen?

    Hallo,

    das, was Du in diesem Code vermißt, kannst Du einzeln mit dem Makrorekorder aufnehmen und dann im "großen" Code implementieren :lol: ...
     
    Wordmouse, 3. August 2006
    #4
  5. Wie kann ich von dem momentan verarbeiteten Dokument (ActiveDocument) überprüfen ob es bereits geschützt ist (Extras=>Dokument schützen)?

    Die Stapelverarbeitung bricht ab, sobald ein Dokument gefunden wird, das für die Bearbeitung gesperrt ist.

    Hier ist mein Prozedurcode für den Dokumentenschutz:

    Sub DokumentSchuetzen()
    ActiveDocument.Protect Password:="abl", NoReset:=False, Type:= _
    wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
    End Sub

    Besten Dank im Voraus
     
    platten_kratzer, 7. August 2006
    #5
  6. Wordmouse Erfahrener User
    Hallo,

    ein wunderbares Beispiel aus der Hilfe:
    Code:
    ...
    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect _
            Type:=wdAllowOnlyFormFields, NoReset:=True
    End If
    ...
     
    Wordmouse, 7. August 2006
    #6
  7. freaky
    freaky Erfahrener User
    Hi,

    ich mag ja auhc die Seitzen von René - aber manchmal ist der Code doch gerade bezüglich der Fehlrroutine etwas unübersichtlich. Hier mal ein Makro, das den Schutz für alle Worddokumente in einem Verzeichnis und den Untzerverzeichnissen automatisch ändert. Du wirst nach dem Passwort am Anfang gefragt - das Passwort wird für alle Dokumente benutzt. Hier der Code:

    Code:
    Sub Doku_Schutz()
        Dim anzdatei As Integer
        Dim Pfad
        Dim PW As String
        
    Set fs = Application.FileSearch
    
    'hier kann auch ein fester Pfad eingegeben werden
    Pfad = InputBox("Geben Sie den Pfad an", "Pfad")
    
    'hier werden nur die insgesamt gefundenen Dateien ausgegeben
    If Pfad = "" Then
        MsgBox "Kein Pfad eingegeben!"
        Exit Sub
    End If
    
    'Abfrage nach dem Passwort für alle Dateien
    PW = InputBox("Bitte das Passwort eingeben:", "Passworteingabe")
    
    
    If Dir(Pfad, vbDirectory) = "" Then
        MsgBox "Pfad kann nicht gefunden werden!"
        Exit Sub
    End If
    
    With fs
        .NewSearch
        .FileType = msoFileTypeWordDocuments   'nur Word-Dokumente!
        .LookIn = Pfad
        .SearchSubFolders = True   'wenn Unterordner auch durchsucht werden sollen
        'folgender Code wird nicht unbedingt gebraucht
        If .Execute = 0 Then
            MsgBox "Es wurden keine Dateien."
            Exit Sub
        End If
        anzdatei = .FoundFiles.Count
    End With
     
      
    ' Verweise in den einzelnen Dateien löschen
    On Error Resume Next
    
    For j = 1 To anzdatei
    WordBasic.DisableAutoMacros 1
            
            Documents.Open fs.FoundFiles(j)
                    
            'Dokuschutz einschalten
            If ActiveDocument.ProtectionType = wdNoProtection Then
                ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=PW
            End If
            'Dokument wird gespeichert und geschlossen
            ActiveDocument.Save
            ActiveDocument.Close
    Next j
    WordBasic.DisableAutoMacros 0
    
    MsgBox "Es wurden " & anzdatei & " Datei(en) neu gespeichert!"
    
    End Sub
    Kannst du ja mal mit Deinem Code vergleichen...
     
    freaky, 7. August 2006
    #7
Thema:

Mehrere Dokumente gleichzeitig schützen?

Die Seite wird geladen...
  1. Mehrere Dokumente gleichzeitig schützen? - Similar Threads - Dokumente schützen

  2. VBA - Serienbriefe in einzelnen Dokumenten speichern

    in Microsoft Word Hilfe
    VBA - Serienbriefe in einzelnen Dokumenten speichern: Hallo, Ich möchte Serienbriefe mit Daten aus einem Excelsheet erstellen. Dann sollen die Briefe als einzelne Word-Dokumente in einem Ordner abgespeichert werden. Dazu soll ein Ordner, benannt...
  3. Öffnen eines neuen Dokuments immer mit 2 Spalten

    in Microsoft Word Hilfe
    Öffnen eines neuen Dokuments immer mit 2 Spalten: Guten Abend, habe folgendes Problem und ich hoffe ich kann hier eine Lösung finden: Word 365: Beim Öffnen eines neuen Dokuments ist die Spaltenzahl immer 2. Ich möchte nur eine Spalte haben. Wie...
  4. 2 Dokumente automatisch verknüpfen

    in Microsoft Word Hilfe
    2 Dokumente automatisch verknüpfen: Hallo zusammen! Ich bin aktuell auf der Suche nach einer Möglichkeit, 2 Dokumente automatisch miteinander zu verknüpfen. Kann man bei Word irgendwie "programmieren", dass nur ein gewisser Teil...
  5. Schützen eines Dokuments mit einem Kennwort

    in Microsoft Word Tutorials
    Schützen eines Dokuments mit einem Kennwort: Schützen eines Dokuments mit einem Kennwort Word für Microsoft 365 Word für Microsoft 365 für Mac Word für das Web Word 2019 Word 2019 für Mac Word...
  6. Kommentar UND Formular in Dokument freigeben

    in Microsoft Word Hilfe
    Kommentar UND Formular in Dokument freigeben: Hallo! Ich habe ein touchfähiges Gerät und möchte in einem geschützten Dokument ein Feld für eine Unterschrift einfügen. Der Rest des Dokumentes besteht aus Formularen! Ich habe es schon einmal...
  7. [Word 2000] Dokument teilweise schützen

    in Microsoft Word Hilfe
    [Word 2000] Dokument teilweise schützen: Hallo zusammen, ich habe ein Formular in das allerhand Daten eingegeben werden müssen. Jetzt ist es so, dass ich manche Felder schützen möchte, andere widerum nicht. Das ganze soll in etwa so...
  8. Dokument schützen

    in Microsoft Word Hilfe
    Dokument schützen: wie schütze ich ein word-dokument?
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden