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