Thema Datum  Von Nutzer Rating
Antwort
03.07.2014 15:03:38 holger ixmeier
****
NotSolved
Blau Nach erstmaligem Druck, Dokumentenschutz aktivieren
 03.07.2014 16:17:54 Gast91834
*****
Solved
03.07.2014 16:48:18 Gast76454
NotSolved
03.07.2014 17:02:12 Gast31625
NotSolved

Ansicht des Beitrags:
Von:
Gast91834		 Datum:
03.07.2014 16:17:54		 Views:
1023		 Rating:
     
Antwort:
 Nein
Thema:
Nach erstmaligem Druck, Dokumentenschutz aktivieren

Hallo,

das ist in Word leider nicht so einfach, weil es das BeforePrint-Event nur im Application-Objekt gibt. Damit das funktioniert, muss aber erst das im Klassenmodul deklarierte Objekt mit dem Application-Objekt verbunden werden, entweder durch eine Benutzeraktion (z. B. Button-Click) oder automatisch beim Öffnen oder Schließen. Alle drei Varianten scheinen mir für dein Vorhaben nicht so gut geeignet zu sein. Wenn du damit leben kannst, den Schutz erst beim Schließen zu aktivieren, ginge es so (Code im Codemodul ThisDocument):

Private Sub Document_Close()
  Dim strPrint As String
  On Error Resume Next
  strPrint = ThisDocument.BuiltInDocumentProperties("Last print date")
  If strPrint <> "" Then
    With ThisDocument
      If .ProtectionType = wdNoProtection Then
        .Protect Type:=wdAllowOnlyReading, Password:="Passwort"
        .Save
      End If
    End With
  End If
End Sub

Das das nur bei aktivierten Makros funktioniert, versteht sich ja von selbst.

Gruß

 

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
03.07.2014 15:03:38 holger ixmeier
****
NotSolved
Blau Nach erstmaligem Druck, Dokumentenschutz aktivieren
 03.07.2014 16:17:54 Gast91834
*****
Solved
03.07.2014 16:48:18 Gast76454
NotSolved
03.07.2014 17:02:12 Gast31625
NotSolved