Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.
Hinweise
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
Das folgende Beispiel bestimmt, 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.