Clase CoAuthLock - bloqueo dentro (Word VBA)

La clase CoAuthLock representa un bloqueo dentro del documento. Para usar una variable de clase CoAuthLock, primero debe ser instanciado, por ejemplo

Dim cal as CoAuthLock
Set cal = ActiveDocument.Range.Locks(Index:=1)

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CoAuthLock en una colección.

Dim cal As CoAuthLock 
For Each cal In ActiveDocument.CoAuthoring.Locks 
    If cal.Type = wdLockReservation Then cal.Unlock 
Next cal

HeaderFooter

Este objeto o miembro ha quedado obsoleto.

Dim booHeaderFooter As Boolean
booHeaderFooter = ActiveDocument.Range.Locks(1).HeaderFooter

Owner

Dim carOwner As CoAuthor
Set carOwner = ActiveDocument.Range.Locks(1).Owner

Range

Devuelve un objeto Range que representa la parte de un documento incluida en el objeto especificado.

MsgBox ActiveDocument.Coauthoring.Locks(1).Range

Type

Devuelve una constante WdLockType que especifica el tipo de bloqueo. Posibles valores de retorno son wdLockChanged - Especifica un bloqueo de marcador de posición, wdLockEphemeral - Especifica un bloqueo efímero, wdLockNone - Reservado para uso posterior, wdLockReservation - Especifica un bloqueo de reserva.

Dim myLock As CoAuthLock 
 
For Each myLock In ActiveDocument.CoAuthoring.Locks 
    If myLock.Type = wdLockReservation Then 
        myLock.Unlock 
    End If 
Next myLock

Unlock

Desbloquea el bloqueo especificado.

El método Unlock desbloquea el bloqueo especificado incluso si pertenece a otro usuario distinto del usuario actual.

Dim myLock as CoAuthLock 
 
For Each myLock In ActiveDocument.CoAuthoring.Locks 
   myLock.Unlock     
Next myLock