How can I prevent users from editing the header of a document in Word 2000 or higher?

Article contributed by Bill Coan

The following code, pasted into the This Document module of a Word 2000 Template, will keep users out of the header and footer of documents based on that template.

For Word 97, click here

Option Explicit
'reserve memory for an application variable
Private WithEvents wdApp As Word.Application

Private Sub Document_New()
    'assign Word to the application variable
   
If wdApp Is Nothing Then
        Set wdApp = ThisDocument.Application
    End If
End Sub


Private Sub Document_Open()
'assign Word to the application variable
If wdApp Is Nothing Then
    Set wdApp = ThisDocument.Application
End If
End Sub


Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
    'quit if active doc isn't attached to this template
   
If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub
    'get out of the header/footer if we're in it
   
Select Case Sel.StoryType
    Case wdEvenPagesFooterStory, wdEvenPagesHeaderStory, _
               wdFirstPageFooterStory, wdFirstPageHeaderStory, _
               wdPrimaryFooterStory, wdPrimaryHeaderStory
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        Exit Sub
    Case Else
    End Select


End Sub