Klasse CoAuthLock - Sperre (Word VBA)

Die Klasse CoAuthLock stellt eine Sperre im Dokument dar. Um eine CoAuthLock -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der CoAuthLock -Elemente in einer Sammlung

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

HeaderFooter

Dieses Objekt oder dieser Member ist veraltet.

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

Owner

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

Range

Gibt ein Range-Objekt zurück, das den Teil eines Dokuments darstellt, der in dem angegebenen Objekt enthalten ist.

MsgBox ActiveDocument.Coauthoring.Locks(1).Range

Type

Gibt eine WdLockType-Konstante zurück, die einen Sperrentyp angibt. Mögliche Rückgabewerte sind wdLockChanged - Gibt eine Platzhaltersperre an, wdLockEphemeral - Gibt eine ephemere Sperre an, wdLockNone - Für zukünftige Verwendung reserviert, wdLockReservation - Gibt eine Reservierungssperre an.

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

Unlock

Hebt die angegebene Sperre auf.

Mit der Unlock-Methode wird die angegebene Sperre auch dann aufgehoben, wenn sie von einem anderen als dem aktuellen Benutzer festgelegt wurde.

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