Protecting Sections

Protect just a section

ActiveDocument.Sections(1).ProtectedForForms = True 

Unprotect the first section

ActiveDocument.Sections(1).ProtectedForForms = False 

When you protect a document and specify which sections

Protecting Specific Areas

Introduced in 2003
The Editor object and Editors collection represents user-editing permissions on a Range or Selection.

If (Application.Selection.Editors.Count = 0) Then 
   'no-one has permission to edit this so selection is protected

End If 

How can you protect/lock header footer from being activated ??