[Tyho]

The Question is to Unprotect/hide/protect with a macro.

I already searched on the internet and try almost everything i saw.. Nothing happend.

This is my code:

Sub OntruimingWeg()

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

ActiveDocument.Bookmarks("Bookmarksname").Range.Fo nt.Hidden = True

' ReProtect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="password"
End If

End Sub

again i tryed many more codes but nothing seems to work.

pls kan someone help me out?

Edit: I forgot to tell this macro is switched by an selection box. When it's on it's the code shown above. When it's off, its all the same exept "Range.Font.Hidden = False"