Disabling content controls and protecting document sections.

[Catty]

Hi,



I am creating a macro to disable certain sections of a document (document has a lot of content controls and thus have to disable them aswell).
After running this macro, my doc is still not protected. Any idea what I'm doing wrong? Below is the code.

Sub DisableDoc()
  
  'locking the content controls
  
   Dim ofmfld As FormField, CCtrl As ContentControl
        With ActiveDocument
            For Each ofmfld In .FormFields
                ofmfld.Enabled = False
            Next
            For Each CCtrl In .ContentControls
                CCtrl.LockContentControl = False
            Next
       
        End With

     Selection.InsertBreak Type:=wdSectionBreakContinuous       
    ActiveDocument.Sections(1).ProtectedForForms = False
    ActiveDocument.Sections(2).ProtectedForForms = True
    ActiveDocument.Sections(3).ProtectedForForms = True
    ActiveDocument.Sections(4).ProtectedForForms = True
    ActiveDocument.Sections(5).ProtectedForForms = True
    ActiveDocument.Sections(6).ProtectedForForms = True
        
End Sub

[gmaxey]

Catty,

Why are you using formfields and content controls in the same document? No law against it, but you would probably be better off to use one or the other and the one to use IMHO is clearly the content control.

See: http://gregmaxey.com/word_tip_pages/...llin_form.html

[Catty]

Hi Greg,

Thanks for the response.

Just to provide feedback. I had to first lock the entire document and then unlock just the specific section I needed to edit.

With ActiveDocument
          .Protect Password:="", NoReset:=False, Type:=wdAllowOnlyReading, useirm:=False, EnforceStyleLock:=False
          .Sections(1).Range.Editors.Add (Word.WdEditorType.wdEditorEveryone)

End With