SharedWorkspaceMember Object (Office)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Represents a user who has rights in a shared document workspace site.

Note Note

Beginning with Microsoft Office 2010, this object or member has been deprecated and should not be used.

Use the SharedWorkspaceMember object to manage users who have rights to participate in a shared workspace and to collaborate on the shared documents saved in the workspace site.

The Role specified when the user is added as a member of the workspace (for example, "Reader" or "Contributor") determines that user's rights in the workspace and cannot be accessed or modified later through properties of the SharedWorkspaceMember object.

Use the Item(index) property of the SharedWorkspaceMembers collection to return a specific SharedWorkspaceMember object.

Use the SharedWorkspaceMember object's three distinct name properties to retrieve identifying information about the member.

  • the Name property returns the members display name;

  • the Email property returns the member's e-mail address; and,

  • the DomainName property returns the member's domain and user name in the format domain\user .

The following example displays the number of members in the active document's shared workspace, along with their names, domain user names, and e-mail addresses.

    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 
    End If 
    MsgBox strMemberInfo, vbInformation + vbOKOnly, _ 
        "Members in Shared Workspace" 
    Set swsMember = Nothing