Protect header/ footer

czsti · #1 08-09-2013, 12:26 AM

Hi,
i want protect (lock) my document header/footer for disable editing text in these.

I tried this code but with error code.

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Header and Footer Questions	Cmiller	Word	5	08-20-2012 07:33 PM
header & footer	avi_sai	Word	1	12-03-2011 10:52 AM
Header & Footer Question - Help Need!	Valentino.R	Word	9	11-29-2010 08:23 AM
Different Header but same Footer	Karthick	Word	1	11-12-2010 09:08 AM
Header and footer questions	boutells	Word	0	07-21-2009 01:57 AM