Данная функция позволяет прочитать все разрешения на объекты типа tables, т.е. запросы и таблицы

Public Function GetPermissions()
Dim db As Database
Dim con As Container
Dim doc As Document
Dim wrk As DAO.Workspace
Dim grp As Variant, tbl As Variant

Set db = CurrentDb

Set con = db.Containers("Tables")
Set wrk = DBEngine.Workspaces(0)
    For Each tbl In con.Documents
        Set doc = con.Documents(tbl.Name)
        For Each grp In wrk.Groups
            doc.UserName = grp.Name
            Debug.Print doc.Name & "=" & grp.Name & "=" & doc.AllPermissions
        Next
    Next
End Function