Klasse UserAccess (Excel VBA)

Die Klasse UserAccess stellt den Benutzerzugriff für einen geschützten Bereich dar.

Set

Um eine UserAccess -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim usrac as UserAccess
Set usrac = ActiveSheet.Protection.AllowEditRanges(1).Users(Index:=1)

Die folgenden Prozeduren können zum Festlegen der UserAccess Klassenvariablen verwendet werden : UserAccessList.Item, UserAccessList.Add und AllowEditRange.Users

For Each

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

Dim usracUser As UserAccess
For Each usracUser In ActiveSheet.Protection.AllowEditRanges(1).Users
	
Next usracUser

AllowEdit

Gibt einen Boolean-Wert zurück, der angibt, ob Benutzer auf den angegebenen Bereich eines geschützten Arbeitsblatts zugreifen können, oder legt diesen Wert fest.

ActiveSheet.Protection.AllowEditRanges(1).Users(1).AllowEdit = True

Delete

Löscht das Objekt.

ActiveSheet.Protection.AllowEditRanges(1).Users(1).Delete

Name

Gibt einen String-Wert zurück, der den Namen des Objekts darstellt, oder legt diesen Wert fest.

Dim strName As String
strName = ActiveSheet.Protection.AllowEditRanges(1).Users(1).Name

UserAccessList.Add

Fügt eine Benutzerzugriffsliste hinzu.

Syntax : expression.Add (Name, AllowEdit)

Dim strName As String: strName = 
Dim usrac As UserAccess
Set usrac = ActiveSheet.Protection.AllowEditRanges(1).Users.Add(Name:=strName, AllowEdit:=True)

Arguments

Hier sind die benannte Argumente :

Name (String) - Der Name der Benutzerzugriffsliste.

AllowEdit - Boolean

UserAccessList.Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveSheet.Protection.AllowEditRanges(1).Users.Count

UserAccessList.DeleteAll

Entfernt alle Benutzer, die Zugriff auf einen geschützten Bereich auf einem Arbeitsblatt haben.

ActiveSheet.Protection.AllowEditRanges(1).Users.DeleteAll

UserAccessList.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Weitere Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter zurückgeben eines Objekts aus einer Auflistung.

Syntax : expression.Item (Index)

Index: Der Name oder die Indexnummer des Objekts.

Dim usracItem As UserAccess
Set usracItem = ActiveSheet.Protection.AllowEditRanges(1).Users(Index:=1)