Set office Permission : Office Permmison « Application « VBA / Excel / Access / Word

Set office Permission


Sub SetPermission()
    Dim irm As Office.Permission
    Dim usr As Office.UserPermission
    Set irm = ActiveWorkbook.Permission
    For Each usr In irm
        Debug.Print usr.UserId, usr.Permission, usr.ExpirationDate
        Debug.Print irm.DocumentAuthor, irm.RequestPermissionURL
End Sub


Related examples in the same category

1.Enable permission
2.Add users
3.The Permission of current workbook
4.Show User Permissions
5.Remove Permissions
6.Show Permissions