Свойство Permission.DocumentAuthor (Office)

Статья
04/07/2023

Возвращает или задает имя в форме электронной почты автора активного документа. Для чтения и записи.

Синтаксис

expression. DocumentAuthor

Выражение Переменная, представляющая объект Permission .

Замечания

Свойство DocumentAuthor возвращает или задает автора активного документа. Автор всегда имеет неиссякающие права владельца документа, независимо от того, предоставлено ли разрешение владельца явным образом (через объект UserPermission ) или нет.

Свойство DocumentAuthor можно изменить только на другую учетную запись, которая была сертифицирована с помощью пользовательского интерфейса разрешений для открытия ограниченного содержимого на локальном компьютере. В большинстве случаев пользователи с одной учетной записью Windows могут выбирать только между удостоверениями Windows и Passport.

Если удостоверения Пользователя в Windows и Passport используют один и тот же адрес электронной почты, используйте формат passport:someone@example.com , чтобы указать удостоверение Passport в качестве свойства DocumentAuthor .

Пример

В следующем примере отображаются сведения о параметрах разрешений активного документа, включая автора документа.

 Dim irmPermission As Office.Permission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 strIRMInfo = "Permissions are enabled on this document." & vbCrLf 
 strIRMInfo = strIRMInfo & " View in trusted browser: " & _ 
 irmPermission.EnableTrustedBrowser & vbCrLf & _ 
 " Document author: " & irmPermission.DocumentAuthor & vbCrLf & _ 
 " Users with rights: " & 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 & " Default permissions applied." 
 End If 
 Else 
 strIRMInfo = "Permissions are NOT enabled on this document." 
 End If 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 Set irmPermission = Nothing

См. также

Члены объекта разрешений

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

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

Поделиться через