Klasse CoAuthLocks (Word VBA)
Eine Auflistung von CoAuthLock -Objekten. Um eine CoAuthLocks -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim cals as CoAuthLocks
Set cals = ActiveDocument.Range.Locks
Add
Gibt ein CoAuthLock -Objekt zurück, das eine Sperre darstellt, die einem angegebenen Bereich hinzugefügt wurde.
Im folgenden Codebeispiel wird dem ersten Absatz im aktiven Dokument eine Reservierungs Sperre hinzugefügt.
ActiveDocument.CoAuthoring.Locks.Add(ActiveDocument.Paragraphs(1).Range, wdLockReservation)
Arguments
Optional arguments
Die folgenden Argumente sind optional
Range (Range) - Gibt den vom CoAuthLock -Objekt gesperrten Dokumentbereich an.
Type - WdLockType
Möglichen Werte sind
| wdLockChanged | Gibt eine Platzhaltersperre an. |
| wdLockEphemeral | Gibt eine ephemere Sperre an. |
| wdLockNone | Für zukünftige Verwendung reserviert. |
| wdLockReservation | Gibt eine Reservierungssperre an. |
Count
Gibt einen Wert vom Typ Long zurück, der die Anzahl der Sperren in der CoAuthLocks -Auflistung darstellt.
MsgBox "The active document contains " & _
ActiveDocument.CoAuthoring.Locks.Count & " locks."
Item
Gibt ein einzelnes CoAuthLock -Objekt in einer Auflistung zurück.
Item (Index)
Index: Das einzelne Objekt zurückgegeben werden soll.
Dim cal As CoAuthLock
Set cal = ActiveDocument.Range.Locks(Index:=1)
RemoveEphemeralLocks
Entfernt kurzlebige Sperren aus dem Dokument.
Ephemere Sperren werden automatisch auf einen Bereich angewendet, wenn ein Co-Autor mit der Bearbeitung eines Dokuments beginnt, für das die gemeinsame Dokumenterstellung aktiviert ist.
ActiveDocument.CoAuthoring.Locks.RemoveEphemeralLocks