Freigeben über

UserPermission-Objekt (Office)

  • Artikel

Ordnet einen Satz von Berechtigungen für das aktive Dokument mit einem einzelnen Benutzer und einem optionalen Ablaufdatum. Mitglied der Permission -Auflistung des aktiven Dokuments darstellt.

HinwBemerkungeneise

Verwenden Sie die Add -Methode des Permission -Objekts, um bestimmte Berechtigungen für das aktive Dokument an einen neuen Benutzer, mit einem optionalen Ablaufdatum zu erteilen. Verwenden Sie die Methode Entfernen des UserPermission -Objekts, um einem Benutzer und Berechtigungen des Benutzers zu entfernen.

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.

Beispiel

Im folgenden Beispiel wird ermittelt, ob das aktive Dokument über eingeschränkte Berechtigungen verfügt, und listet dann Benutzer und ihre zugewiesenen Berechtigungen auf, indem die Eigenschaften UserId, Permission und ExpirationDate jeder UserPermission in der Permission-Auflistung des Dokuments zurückgegeben werden.

 Dim irmPermission As Office.Permission 
 Dim irmUserPerm As Office.UserPermission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 For Each irmUserPerm In irmPermission 
 strIRMInfo = strIRMInfo & irmUserPerm.UserId & vbCrLf & _ 
 " - Permissions: " & irmUserPerm.Permission & vbCrLf & _ 
 " - Expiration Date: " & irmUserPerm.ExpirationDate & vbCrLf 
 Next 
 MsgBox strIRMInfo, _ 
 vbInformation + vbOKOnly, "IRM Information" 
 Else 
 MsgBox "This document is not restricted.", _ 
 vbInformation + vbOKOnly, "IRM Information" 
 End If 
 Set irmUserPerm = Nothing 
 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.