Solved it!
Code:
'(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)
Now I just have to figure out how to de-select everything at the end so it doesn't make users panic. =D