'(Re)Group all objects to effectively lock the document from editing again.
    Dim ctrlA As Word.Range
    Dim ctrlAcc As ContentControl
        Set ctrlA = ActiveDocument.Range
        ctrlA.Select
    Set ctrlAcc = ActiveDocument.ContentControls.Add(wdContentControlGroup, ctrlA)