VBA-Blattschtschutz in Word???

Roger Lehmann · 30.05.2006

:-\Guten Morgen!

Nach langen Recherchen im Internet habe ich jetzt den VBA- Code
für den Blattschutz eines Word- Dokumentes:

Const Passwort = ?test?

Sub Sperren ()
ÄÄÄ ActiveDocument.Protect Password:= Passwort, NoReset:=False, Type:= wdAllowOnlyFormFields
End Sub

Sub Entsperren()
ÄÄÄ ActiveDocument.Unprotect Password:=Passwort
End Sub

Habe diese Information bei Bluewin.ch.

Nun ist es aber so, dass folgende Meldung auftaucht:

?Fehler beim Kompilieren? : Nach End Sub, können nur Kommentare stehen.

Gelb unterlegt bei Sub Entsperren ().

Hast DU eine Ahnung was da falsch läuft?

Über Ihre Hilfe würde ich mich freuen.

Grüße aus Denzlingen!

Matjes · 30.05.2006

Hallo Roger Lehmann,

bitte mache bei einem neuen Thema auch einen neuen Thread auf.
Die Admins danken es dir

Ich hab deinen Code mal geprüft. Gestört haben die ÄÄÄ und die Anführungszeichen um test.

Gruß Matjes

Code:

Const Passwort = test

Sub Sperren()
  
  ActiveDocument.Protect _
                 Password:=Passwort, _
                 NoReset:=False, _
                 Type:=wdAllowOnlyFormFields
                
End Sub

Sub Entsperren()
  ActiveDocument.Unprotect Password:=Passwort
End Sub

VBA-Blattschtschutz in Word???

Roger Lehmann

Matjes

VBA-Blattschtschutz in Word???

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums