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