dokumentschutz für einen bereich im formular aufheben

24/05/2009 - 21:02 von Mablue1910 | Report spam
Wie kann ich in einem mit Dokumentschutz versehenen Onlineformular (es sollen
vom Bearbeiter nur Formularfelder ausgefüllt werden) einen Bereich vom
Dokumentschutz entbinden? In diesem Bereich sollen vom Bearbeiter Bilder
eingefügt werden können.
 

Lesen sie die antworten

#1 Thomas Löwe [MS MVP Word]
24/05/2009 - 21:26 | Warnen spam
Hallo,

"Mablue1910" schrieb im Newsbeitrag
news:

Wie kann ich in einem mit Dokumentschutz versehenen Onlineformular
(es sollen vom Bearbeiter nur Formularfelder ausgefüllt werden) einen
Bereich vom Dokumentschutz entbinden? In diesem Bereich sollen
vom Bearbeiter Bilder eingefügt werden können.



du hast leider nicht die verwendete Version von Microsoft Office
angegeben. Bitte schließe diese Information bei allen weiteren
Anfragen ein.

In einem ungeschützten Abschnitt in einem geschützten Dokument
stehet die von dir genannte Funktion zur Verfügung.

In nachfolgendem Artikel in der Microsoft Knowledge Base findest
du weitere Informationen hierzu:
WD2000: Some Menu Commands Unavailable (Document Protection)
http://support.microsoft.com/kb/211333/en-us
Die Informationen können unter Microsoft Word 2007
verwendet werden.

Einige Artikel in der MSKB beschreiben Makros, die die von dir
gewünschte Funktionalitàt bieten. Die Makrolösungen können unter
Microsoft Word 97 und 2000 verwendet werden. Du kannst folgendes
VBA-Makro (Extras, Makros,Makros, Erstellen) erstellen und diesem
ein Icon in der Symbolleiste zuweisen (Anpassen, Befehle, Makros).
Nach dem Aufheben des Dokumentschutzes kannst du die
Seriendruckfunktionalitàt nutzen.

Makro zum Setzen / Aufheben des Dokumentschutzes unter
Auswahl der zu schützenden Abschnitte und Eingabe des
Passwortes
-

Sub ProtectNoReset()

Dim pDoc As Dialog
Dim x As Integer
On Error GoTo ProtectNoResetErr

' If the document is protected,
If ActiveDocument.ProtectionType <> wdNoProtection Then

' Unprotect the document.
ActiveDocument.Unprotect

End If

' Display the Protect Dialog box.
Set pDoc = Dialogs(wdDialogToolsProtectDocument)
x = pDoc.Display

' If Cancel was chosen, exit this procedure.
If x = 0 Then Exit Sub

' Protect the document.
ActiveDocument.Protect Password:=pDoc.DocumentPassword, _
NoReset:=True, Type:=2

ProtectNoResetErr: 'NOTE: This line MUST be left aligned.

If Err <> 0 Then MsgBox Err.Description

End Sub

Makro zum Setzen des Dokumentschutzes
-
Sub Test()

If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
End If

End Sub

Makro zum Aufheben des Dokumentschutzes

Sub Test1()

' If document is protected, Unprotect it.
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If

End Sub

Den vollstàndigen Artikel findest du unter:

How to Retain Information Typed into a Form Field
http://support.microsoft.com/kb/191028/en-us

Eine Änderung zu früheren Versionen ist nach meiner Kenntnis
nicht erfolgt.

Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.

Mit freundlichen Grüßen / With best regards
Thomas Löwe [Microsoft MVP Word]
Es erfolgt keine Beantwortung von Supportanfragen per E-Mail.
http://support.microsoft.com

Ähnliche fragen