Berechtigungsobjekt (Office)
Die Permission -Eigenschaft des Document -Objekts in Microsoft Word, ein Workbook -Objekt in Microsoft Excel und ein Presentation -Objekt in Microsoft PowerPoint gibt ein Permission -Objekt zurück.
Hinweise
Verwenden Sie das Permission -Objekt zum Einschränken von Berechtigungen für das aktive Dokument und bestimmte berechtigungseinstellungen festzulegen oder zurückzugeben.
Das Permission-Objekt gewährt Zugriff auf eine Auflistung von UserPermission-Objekten . Verwenden Sie das UserPermission-Objekt, um bestimmte Gruppen von Rechten einzelnen Benutzern zuzuordnen. Während einige Berechtigungen, die über die Benutzeroberfläche erteilt werden (z. B. msoPermissionPrint), für alle Benutzer gelten, können Sie das UserPermission-Objekt verwenden, um Berechtigungen individuell pro Benutzer und mit individuellem Ablaufdatum zuzuweisen.
Microsoft Office Information Rights Management unterstützt die Verwendung von Administratorberechtigungsrichtlinien, die Benutzer und Gruppen und deren Dokumentberechtigungen auflisten. Verwenden Sie die ApplyPolicy -Methode zum Anwenden einer Berechtigungsrichtlinie und die Eigenschaften PermissionFromPolicy, PolicyName und PolicyDescription, um Richtlinieninformationen zurückzugeben.
Das Objektmodell Berechtigung ist verfügbar, ob Berechtigungen für das aktive Dokument eingeschränkt sind. Die Permission-Eigenschaft der Objekte Document, Workbook und Presentation gibt nicht Nothing zurück, wenn das aktive Dokument nicht über eingeschränkte Berechtigungen verfügt. Verwenden Sie die Enabled -Eigenschaft, um zu bestimmen, ob ein Dokument über eingeschränkte Berechtigungen verfügt.
Verwendung des Permission -Objekts löst einen Fehler aus, wenn der Windows-Rechteverwaltungsclient nicht installiert ist.
Beispiel
Das folgende Beispiel gibt Informationen zu den Berechtigungseinstellungen für das aktive Dokument zurück.
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
strIRMInfo = strIRMInfo & " View in trusted browser: " & _
irmPermission.EnableTrustedBrowser & vbCrLf & _
" Document author: " & irmPermission.DocumentAuthor & vbCrLf & _
" Users with permissions: " & irmPermission.Count & vbCrLf & _
" Cache licenses: " & irmPermission.StoreLicenses & vbCrLf & _
" Request permission URL: " & irmPermission.RequestPermissionURL & 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 = "Permissions 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.