Свойство 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

См. также

Объект Presentation

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.