Show all permissions : Database Protect « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database Protect

Show all permissions

 
Sub ShowPerms()
 
    Dim objContainer As Container
    Dim objDoc As Document

    For Each objContainer In CurrentDb.Containers
        Debug.Print objContainer.Name
        For Each objDoc In objContainer.Documents
            Debug.Print "Document: " & objDoc.Name;
            objDoc.UserName = "Admin"
            Debug.Print "Perms: " & objDoc.AllPermissions
        Next
    Next

    Debug.Print "Done"
 
End Sub

 

Related examples in the same category