Permission.PermissionFromPolicy-Eigenschaft (Office)

Ruft einen booleschen Wert, der angibt, ob eine Berechtigungsrichtlinie auf das aktive Dokument angewendet wurde. Schreibgeschützt.

Syntax

Ausdruck. PermissionFromPolicy

Ausdruck Eine Variable, die ein Permission-Objekt darstellt.

HinwBemerkungeneise

Die Verwaltung von Informationsrechten in Microsoft Office unterstützt die Verwendung von Administratorberechtigungsrichtlinien, die Benutzer und Gruppen und deren Dokumentberechtigungen auflisten. Die PermissionFromPolicy -Eigenschaft gibt einen booleschen Wert, der angibt, ob eine Berechtigungsrichtlinie auf das aktive Dokument angewendet wurde, als die letzten Mal Berechtigungen für das Dokument aktiviert wurden.

Die PermissionFromPolicy -Eigenschaft gibt immer False, Wenn Sie von einem nicht-Besitzer des Dokuments, überprüft, selbst wenn der Benutzer Objektmodellberechtigungen hat.

Beispiel

Das folgende Beispiel zeigt Informationen zu Berechtigungsrichtlinien für das aktive Dokument an.

 Dim irmPermission As Office.Permission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 strIRMInfo = "Permissions are restricted on this document." & vbCrLf 
 If irmPermission.PermissionFromPolicy Then 
 strIRMInfo = strIRMInfo & " Permissions applied from policy:" & vbCrLf & _ 
 " Policy name: " & irmPermission.PolicyName & vbCrLf & _ 
 " Policy description: " & irmPermission.PolicyDescription 
 Else 
 strIRMInfo = strIRMInfo & " Default permissions applied." & vbCrLf & _ 
 " Default policy name: " & irmPermission.PolicyName & vbCrLf & _ 
 " Default policy description: " & irmPermission.PolicyDescription 
 End If 
 Else 
 strIRMInfo = "Permission are NOT restricted on this document." 
 End If 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 Set irmPermission = Nothing 

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.