Classe CoAuthLock (Word VBA)

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

La procédure principale de la classe CoAuthLock est CoAuthLocks.Add

Set

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, CoAuthLocks.Item, CoAuthor.Locks, CoAuthoring.Locks et Range.Locks

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

Méthodes

C'est la méthode principale de la classe CoAuthLock

CoAuthLocks.Add - Renvoie un objet CoAuthLock qui représente un verrou ajouté à une plage spécifiée.

Dim cal As CoAuthLock
Set cal = ActiveDocument.Range.Locks.Add()

Propriétés

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

Parent Renvoie un Object qui représente l'objet parent de l'objet CoAuthLock spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Locks(1).Parent

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

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Locks(1).Range

Type Renvoie une constante WdLockType qui spécifie le type de verrou.

Dim wltType As WdLockType
wltType = ActiveDocument.Range.Locks(1).Type

CoAuthLocks.Count Renvoie un type long qui représente le nombre de verrous dans la collection CoAuthLocks .

Dim lngCount As Long
lngCount = ActiveDocument.Range.Locks.Count

CoAuthLocks.Parent Renvoie un Object qui représente l'objet parent de l'objet CoAuthLocks spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Locks.Parent