共用方式為

PowerPoint) (Presentation.Permission 屬性

  • 發行項

語法

expression。 Permission

表達 代表 Presentation 物件的變數。

傳回值

權限

註解

使用 Permission 物件來限制使用中文件的權限及可傳回或設定特定權限設定。

若要判斷是否將權限限制在使用中文件上使用 Enabled 屬性。 使用 Count 屬性可傳回與權限及 RemoveAll 方法來重設所有現有的權限的使用者人數。

DocumentAuthor 、 EnableTrustedBrowser 、 RequestPermissionURL 及 StoreLicenses 屬性提供的權限設定的其他資訊。

Permission 物件會提供存取權 UserPermission 物件的集合。 您可以使用 UserPermission 物件關聯個別使用者的特定權限集。 儘管透過使用者介面授與的部分權限 (例如 msoPermissionPrint) 適用於所有的使用者，您可以使用 UserPermission 物件根據每個使用者指定不同的權限和不同的到期日。

資訊版權管理支援的管理權限原則，列出使用者與群組及其文件權限。 使用 ApplyPolicy 方法套用權限原則，與 PermissionFromPolicy 、 PolicyName ，以及 PolicyDescription 屬性可傳回原則資訊。

權限 物件模型的功能可用是否權限會限制在使用中文件上或不。 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 支援與意見反應。