Meldung bei Deaktivierung von "Formular schützen"

10/09/2007 - 08:55 von Uwe Weih | Report spam
Hallo,

wie müsste man den Code in VB gestalten, wenn man ein Hinweisfenster
einblenden möchte, nachdem ein Benutzer den Dokumentenschutz "Formular
schützen" abschaltet?

Ciao

Uwe
 

Lesen sie die antworten

#1 Christian Freßdorf
10/09/2007 - 09:42 | Warnen spam
Hallo Uwe,

vorweg: zu VBA gibt es eine eigene NG ;-)

wie müsste man den Code in VB gestalten, wenn man ein Hinweisfenster
einblenden möchte, nachdem ein Benutzer den Dokumentenschutz "Formular
schützen" abschaltet?



folgende Makros klinken sich in die beiden Aufrufe (Word2000)

Sub ProtectForm()
' Makro: Formular schützen in der Symbolleiste
On Error Resume Next
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect
Else
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
If Not Err.Number = 0 Then
MsgBox "Fehler Code: " & Err.Number & vbCrLf & Err.Description
End If
End Sub

Sub ToolsProtectUnprotectDocument()
' Makro: Formular schützen in der Menüleiste: Extras->Dokument schützen
On Error Resume Next
If ActiveDocument.ProtectionType = wdNoProtection Then
With Dialogs(wdDialogToolsProtectDocument)
.NoReset = True
.Show
End With
Else
ActiveDocument.Unprotect
End If
If Not Err.Number = 0 Then
MsgBox "Fehler Code: " & Err.Number & vbCrLf & Err.Description
End If
End Sub

da müsstest Du die entsprechende Meldung einbauen.
Gruß Christian
~~~~~~~~~~~~
Antworten / Rückmeldungen nur in die NG!
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

Ähnliche fragen