Classe CoAuthLock - verrou au sein (Word VBA)

La classe CoAuthLock représente un verrou au sein du document.

Pour utiliser une variable de classe CoAuthLock, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CoAuthLock : CoAuthLocks.Add et CoAuthLocks.Item.

For Each

Voici un exemple de traitement des éléments CoAuthLock dans une collection

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

HeaderFooter

Cet objet ou ce membre a été déconseillé.

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

Owner

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

Range

Renvoie un objet Range qui représente la partie d'un document contenue dans l'objet spécifié.

MsgBox ActiveDocument.Coauthoring.Locks(1).Range

Type

Renvoie une constante WdLockType qui spécifie le type de verrou. Les valeurs de retour possibles sont wdLockChanged - Spécifie un verrou d'espace réservé, wdLockEphemeral - Spécifie un verrou éphémère, wdLockNone - Réservé à une utilisation ultérieure, wdLockReservation - Spécifie un verrou de réservation.

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

Unlock

Déverrouille le verrou spécifié.

La méthode Unlock déverrouille le verrou spécifié même s'il appartient à un utilisateur autre que l'utilisateur actuel.

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