UserPermission オブジェクト (Office)

アクティブ ドキュメントに対するアクセス許可のセットを 1 人のユーザーとオプションの有効期限日に関連付けます。 作業中の文書の アクセス許可 のコレクションのメンバーを表します。

注釈

省略可能な有効期限の日付で、新しいユーザーをアクティブ ドキュメントに対する特定のアクセス許可を付与するのに アクセス許可 オブジェクトの Add メソッドを使用します。 UserPermission オブジェクトの Remove メソッドを使用すると、ユーザーおよびユーザーのアクセス許可を削除できます。

msoPermissionPrint など、ユーザー インターフェイスを通じて設定する一部のアクセス許可はすべてのユーザーに適用されますが、UserPermission オブジェクトを使用すると、ユーザー単位でアクセス許可を割り当てることができます。また、ユーザー単位で有効期限を設定することもできます。

例

次の例では、作業中の文書にアクセス許可が制限されているかどうかを判断し、ドキュメントの Permission コレクション内の各 UserPermission の UserId、Permission、ExpirationDate プロパティを返すことで、ユーザーとその割り当てられたアクセス許可を一覧表示します。

 Dim irmPermission As Office.Permission 
 Dim irmUserPerm As Office.UserPermission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 For Each irmUserPerm In irmPermission 
 strIRMInfo = strIRMInfo & irmUserPerm.UserId & vbCrLf & _ 
 " - Permissions: " & irmUserPerm.Permission & vbCrLf & _ 
 " - Expiration Date: " & irmUserPerm.ExpirationDate & vbCrLf 
 Next 
 MsgBox strIRMInfo, _ 
 vbInformation + vbOKOnly, "IRM Information" 
 Else 
 MsgBox "This document is not restricted.", _ 
 vbInformation + vbOKOnly, "IRM Information" 
 End If 
 Set irmUserPerm = Nothing 
 Set irmPermission = Nothing 

関連項目

• UserPermission オブジェクト メンバー
• オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。