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