See VBA Immediate window for a list of permissions and users. : Workbook Permission « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Workbook Permission

See VBA Immediate window for a list of permissions and users.

 
Sub ShowPermissions()
    Dim myPermission As Office.Permission, str As String
    Set myPermission = ThisWorkbook.Permission
    If myPermission.Enabled Then
        If myPermission.PermissionFromPolicy Then
            Debug.Print "Policy name: " & myPermission.PolicyName
            Debug.Print "Policy description: " & myPermission.PolicyDescription
        Else
            Debug.Print "Default policy name: " & myPermission.PolicyName
            Debug.Print "Default policy description: " & myPermission.PolicyDescription
        End If
    Else
        Debug.Print "Permission are NOT restricted on this document."
    End If
End Sub








Related examples in the same category

1.Workbook permissions removed -- workbook access is no longer restricted through IRM.
2.'Show User Permissions
3.Workbook permissions restricted
4.Granted permission to two users.