R
robertadamharper
Has anyone got the code below to work? If you have, please could you
give me a detailed steps into getting it to work>
<http://word.mvps.org/faqs/customization/
ProtectWord2000PlusHeader.htm>
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
give me a detailed steps into getting it to work>
<http://word.mvps.org/faqs/customization/
ProtectWord2000PlusHeader.htm>
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