Sub Protect_Form_Fields_2()
'
' Protect_Form_Fields_2 Macro
'
'
Dim i As Long
Dim startPos As Integer
Dim endPos As Integer

With ActiveDocument
For i = 1 To .ContentControls.Count
Set ContentControl = .ContentControls(i)
startPos = ContentControl.Range.Start - 1
endPos = ContentControl.Range.End + 1
Application.ActiveDocument.Range(startPos, endPos).Editors.Add WdEditorType.wdEditorEveryone

Next i
.Protect Password:="NoChange", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End With
End Sub