Classe CoAuthLock - bloqueio dentro (Word VBA)

A classe CoAuthLock representa um bloqueio dentro do documento. O objeto CoAuthLock é um membro da coleção CoAuthLocks. Para usar uma variável de classe CoAuthLock, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens CoAuthLock em uma coleção.

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

HeaderFooter

Este objeto ou membro foi preterido. Você não deve usá-lo nos novos aplicativos.

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

Owner

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

Range

Retorna um objeto Range que representa a parte de um documento contido no objeto especificado. Somente leitura.

MsgBox ActiveDocument.Coauthoring.Locks(1).Range

Type

Retorna uma constante WdLockType que especifica o tipo de bloqueio. Somente leitura. Os valores de retorno possíveis são wdLockChanged - Especifica um bloqueio de espaço reservado. Um bloqueio de espaço reservado indica que outro usuário removeu o bloqueio do intervalo, mas o usuário atual não atualizou o modo de exibição do documento salvando, wdLockEphemeral - Especifica um bloqueio efêmero. O Word coloca implicitamente um bloqueio efêmero em um intervalo quando um usuário começa a editar um intervalo em um documento com a coautoria habilitada, wdLockNone - Reservado para uso futuro, wdLockReservation - Especifica um bloqueio de reserva. Um bloqueio de reserva explicitamente é criado por um usuário por meio do botão de Autores de bloco na guia revisão no Word.

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

Unlock

Desbloqueia o bloqueio especificado.

O método Unlock desbloqueia o bloqueio especificado, mesmo se ele pertence a outro usuário que não seja o usuário atual.

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