Update multiple field in Protected Restrict Editing Word Document

What type of Editing Restriction did you apply to the document?

With some of them, it is not possible to run macros from the user interface so you would need to assign the macro to the keyboard or to the Quick Access Toolbar.

Alternatively, if you use FIle>Print and then close the backstage print view, that will cause the fields in the document to be updated.

Hi Doug,

Whenever I run below macro - (.Execute Replace:=wdReplaceAll) this line showing error.

Sub ChangeLinkPath()

    Dim rg As Range

    Set rg = ActiveDocument.Range

    rg.TextRetrievalMode.IncludeFieldCodes = True

    With rg.Find

        .Text = InputBox("Old path and file name", "Old Path and File Name")

        .Replacement.Text = InputBox("New path and file name", "New Path and File Name")

        .Execute Replace:=wdReplaceAll

    End With

    ActiveDocument.Fields.Update

End Sub

and I am using this mode for restrict editing, comments and wherever I selected Exceptions, that area only editable. Rest of the document editing locked. User have only rights to give comments and Edit only in Exception area.

If I am not choosing Start Enforcing Protection, these macro run perfectly but I need password for the document. And after I choose Yes, Start Enforcing Protection and insert password, these macro showing error "4605", and  .Execute Replace:=wdReplaceAll line showing error.

Which fields are you trying to update? A single line of code should do the trick:

ActiveDocument.Fields.Update

Which line in the macro generates the error?

Hi Stefan,

Whenever I run below macro - (.Execute Replace:=wdReplaceAll,) this line showing error

Sub ChangeLinkPath()

    Dim rg As Range

    Set rg = ActiveDocument.Range

    rg.TextRetrievalMode.IncludeFieldCodes = True

    With rg.Find

        .Text = InputBox("Old path and file name", "Old Path and File Name")

        .Replacement.Text = InputBox("New path and file name", "New Path and File Name")

        .Execute Replace:=wdReplaceAll

    End With

    ActiveDocument.Fields.Update

End Sub

and I am using this mode for restrict Editing, Comments and wherever I selected Exceptions, that area only editable. Rest of the document editing locked. User have only rights to give comments and Edit only in Exception area.

If I not choosing Start Enforcing Protection, these macro run perfectly but I need password for the document. and after I choose Yes, Start Enforcing Protection and insert password, these macro showing error "4605". and .Execute Replace:=wdReplaceAll line showing error.   

What type of Editing Restriction did you apply to the document?

With some of them, it is not possible to run macros from the user interface so you would need to assign the macro to the keyboard or to the Quick Access Toolbar.

Alternatively, if you use FIle>Print and then close the backstage print view, that will cause the fields in the document to be updated.