Range.Locks (Word)
Returns a CoAuthLocks collection object that represents all the locks in the range.
Use the Locks property to return the CoAuthLocks collection.
MsgBox ActiveDocument.Paragraphs(1).Range.Locks.Count
Returns a CoAuthLocks collection object that represents all the locks in the range.
Use the Locks property to return the CoAuthLocks collection.
MsgBox ActiveDocument.Paragraphs(1).Range.Locks.Count