SharedWorkspaceMember-Objekt (Office)

Artikel
04/07/2023

Stellt einen Benutzer dar, der über Berechtigungen in einer freigegebenen Dokumentarbeitsbereich-Website verfügt.

Hinweis

Ab Microsoft Office 2010 ist dieses Objekt oder Element veraltet und sollte nicht verwendet werden.

HinwBemerkungeneise

Verwenden Sie das SharedWorkspaceMember -Objekt, um Benutzer zu verwalten, die berechtigt sind, an einem freigegebenen Arbeitsbereich teilzunehmen und in der Arbeitsbereichwebsite gespeicherten freigegebenen Dokumente zu bearbeiten.

Die Rolle beim Hinzufügen des Benutzers als Mitglied des Arbeitsbereichs (z. B. "Leser" oder "Mitwirkender") angegeben bestimmt die Rechte des Benutzers im Arbeitsbereich und kann nicht zugegriffen oder später über die Eigenschaften des SharedWorkspaceMember -Objekts geändert werden.

Verwenden Sie die Item-Eigenschaft (Index) der SharedWorkspaceMembers-Auflistung , um ein bestimmtes SharedWorkspaceMember-Objekt zurückzugeben.

Verwenden Sie die drei unterschiedlichen Nameneigenschaften des SharedWorkspaceMember -Objekts, um identifizierende Informationen zum Mitglied abzurufen.

Die Name-Eigenschaft gibt den Anzeigenamen der Elemente zurück.
Die Email-Eigenschaft gibt die E-Mail-Adresse des Mitglieds zurück.
Die DomainName-Eigenschaft gibt die Domäne und den Benutzernamen des Mitglieds im Format domain\userzurück.

Beispiel

Im folgenden Beispiel wird die Anzahl der Mitglieder im freigegebenen Arbeitsbereich des aktiven Dokuments zusammen mit ihren Namen, Domänenbenutzernamen und E-Mail-Adressen angezeigt.

    Dim swsMember As Office.SharedWorkspaceMember 
    Dim strMemberInfo As String 
    strMemberInfo = "The shared workspace contains " & _ 
        ActiveWorkbook.SharedWorkspace.Members.Count & " member(s)." & vbCrLf 
    If ActiveWorkbook.SharedWorkspace.Members.Count > 0 Then 
        For Each swsMember In ActiveWorkbook.SharedWorkspace.Members 
            strMemberInfo = strMemberInfo & swsMember.Name & vbCrLf & _ 
                " - " & swsMember.DomainName & vbCrLf & _ 
                " - " & swsMember.Email & vbCrLf 
        Next 
    End If 
    MsgBox strMemberInfo, vbInformation + vbOKOnly, _ 
        "Members in Shared Workspace" 
    Set swsMember = Nothing

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via