Klasse UserAccess - den Benutzerzugriff für einen geschützten Bereich (Excel VBA)
Die Klasse UserAccess stellt den Benutzerzugriff für einen geschützten Bereich dar. 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)
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