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

1. VBA / Excel / Access / Word
2. Application
3. Office Permmison

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
    Next
        Debug.Print irm.DocumentAuthor, irm.RequestPermissionURL
End Sub

 

Related examples in the same category