通过

Permission.DocumentAuthor 属性 (Office)

  • 项目

获取或设置活动文档的作者的电子邮件形式的名称。 读/写。

语法

表达式。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 支持和反馈，获取有关如何接收支持和提供反馈的指南。