Свойство Presentation.Permission (PowerPoint)
Синтаксис
выражение. Permission
Выражение Переменная, представляющая объект Presentation .
Возвращаемое значение
Разрешение
Замечания
Используйте объект Permission для ограничения разрешений для активного документа, а также для возврата или задания определенных параметров разрешений.
Используйте свойство Enabled , чтобы определить, ограничены ли разрешения для активного документа. Используйте свойство Count для возврата количества пользователей с разрешениями, а метод RemoveAll — для сброса всех существующих разрешений.
Свойства DocumentAuthor, EnableTrustedBrowser, RequestPermissionURL и StoreLicenses предоставляют дополнительные сведения о параметрах разрешений.
Объект Permission предоставляет доступ к коллекции объектов UserPermission . Используйте объект UserPermission , чтобы связать определенные наборы прав с отдельными пользователями. Хотя некоторые разрешения, предоставленные в пользовательском интерфейсе (например , msoPermissionPrint), применяются ко всем пользователям, можно использовать объект UserPermission , чтобы назначить их для каждого пользователя с датами окончания срока действия для каждого пользователя.
Управление правами на доступ к данным поддерживает использование политик административных разрешений, в которых перечислены пользователи и группы и их разрешения на документы. Используйте метод ApplyPolicy для применения политики разрешений, а свойства PermissionFromPolicy, PolicyName и PolicyDescription — для возврата сведений о политике.
Объектная модель разрешений доступна независимо от того, ограничены ли разрешения для активного документа. Свойство Permission объекта Presentation не возвращает Значение Nothing , если активный документ не имеет ограниченных разрешений. Используйте свойство Enabled , чтобы определить, имеет ли документ ограниченные разрешения.
Пример
В следующем примере создается новая презентация и пользователю назначается разрешение на чтение новой презентации с адресом электронной почты "someone@example.com". В примере отображаются разрешения владельца и нового пользователя.
Sub AddUserPermissions()
Dim myPres As PowerPoint.Presentation
Dim myPer As Office.Permission
Dim NewOwnerPer As Office.UserPermission
Set myPres = Application.Presentations.Add(msoTrue)
Set myPer = myPres.Permission
myPer.Enabled = True
Set NewOwnerPer = myPer.Add("someone@example.com", msoPermissionRead )
MsgBox myPer(1).UserId + " " + Str(myPer(1).Permission)
MsgBox myPer(2).UserId + " " + Str(myPer(2).Permission)
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по