Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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