Editor.DeleteAll Method (Word)
Deletes all editing permissions in a document for a specific user.
expression Required. A variable that represents an 'Editor' object.
The following example deletes all editing permissions for the first user in the Editors collection in the active document.
Dim objEditor As Editor Set objEditor = Selection.Editors(1) objEditor.DeleteAll