Freigeben über


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.