Permission.StoreLicenses-Eigenschaft (Office)
Dient zum Abrufen oder Festlegen eines booleschen Werts, das angibt, ob die Lizenz des Benutzers zum Anzeigen des aktiven Dokuments zwischengespeichert werden soll, damit offline angezeigt, wenn der Benutzer keine Verbindung zu einem Rechteverwaltungsserver herstellen kann. Lese-/Schreibzugriff.
Syntax
Ausdruck. StoreLicenses
Ausdruck Eine Variable, die ein Permission-Objekt darstellt.
Hinweise
Die StoreLicenses -Eigenschaft entspricht (und dessen Wert ist das Gegenteil des) in der Benutzeroberfläche für Berechtigungen die Option erfordern eine Verbindung mit der Berechtigung eines Benutzers überprüfen aus. Wenn StoreLicensesauf False festgelegt ist, müssen andere Benutzer als der Dokumentbesitzer eine Verbindung mit dem Rights Management-Server herstellen und die Lizenz für die Arbeit mit dem Dokument bei jedem Öffnen erwerben, wenn Inhalte mithilfe des in Microsoft Office bereitgestellten Information Rights Management-Diensts geschützt werden.
Beispiel
Das folgende Beispiel zeigt Informationen zu berechtigungseinstellungen des aktiven Dokuments, einschließlich der StoreLicenses-Eigenschaft 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
strIRMInfo = strIRMInfo & " View in trusted browser: " & _
irmPermission.EnableTrustedBrowser & vbCrLf & _
" Document author: " & irmPermission.DocumentAuthor & vbCrLf & _
" Users with permissions: " & irmPermission.Count & vbCrLf & _
" Cache licenses locally: " & 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 & " Custom permissions applied."
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.