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