******************************************************************************************************

  Users (list all Users in workspace)

******************************************************************************************************

Option Compare Database

Option Explicit

'Lists all users in a workspace

Sub ShowAllUsers()

    Dim ws As Workspace

    Dim usr As User

    Set ws = DBEngine.Workspaces(0)

    ws.Users.Refresh

    For Each usr In ws.Users

        Debug.Print "User: " & usr.Name

    Next usr

End Sub

'Lists all Groups in a Workspace

Sub ShowAllGroups()

    Dim ws As Workspace

    Dim grp As Group

    Set ws = DBEngine.Workspaces(0)

    ws.Groups.Refresh

    For Each grp In ws.Groups

         Debug.Print "Group: " & grp.Name

    Next grp

End Sub