Protect header/ footer

[czsti]

Hi,
i want protect (lock) my document header/footer for disable editing text in these.
I tried this code but with error code.

 
Private Sub Document_Open()
    Dim i As Long
    For i = 1 To ActiveDocument.Sections.Count
        ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range.Locks = True
        ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).Range.Locks = True
    Next
End Sub

Somebody help me? Thx

[cosmopolitan]

Hello,

I found a thread for what you are trying to do that might help you. Hope it works!

http://www.access-programmers.co.uk/...d.php?p=956124