DeleteAll Method
Deletes all editing permissions in a document for a specific user.
expression.DeleteAll
expression Required. An expression that returns an Editor object.
Example
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