Microsoft Word、Microsoft Excel で、 ブック のオブジェクト、および Microsoft powerpoint の プレゼンテーション オブジェクト内の ドキュメント オブジェクトの アクセス許可 プロパティは、 アクセス許可 オブジェクトを返します。
注釈
作業中の文書へのアクセス許可を制限し、特定のアクセス許可の設定を取得または アクセス許可 オブジェクトを使用します。
Permission オブジェクトは、UserPermission オブジェクトのコレクションへのアクセスを提供します。 UserPermission オブジェクトを使用すると、個々 のユーザーに特定の権限のセットを関連付けます。 msoPermissionPrint など、ユーザー インターフェイスを通じて設定する一部のアクセス許可はすべてのユーザーに適用されますが、UserPermission オブジェクトを使用すると、ユーザー単位でアクセス許可を割り当てることができます。また、ユーザー単位で有効期限を設定することもできます。
Microsoft Office Information Rights Management では、ユーザーとグループ、およびそれらのドキュメントのアクセス許可を一覧表示する管理アクセス許可ポリシーの使用がサポートされています。 ApplyPolicy メソッドを使用すると、アクセス許可ポリシー、およびポリシー情報を取得するのに ユーザー 、 グループ 、および ドキュメント のプロパティを適用できます。
Permission オブジェクト モデルは、アクティブ ドキュメントに対するアクセス許可が制限されているかどうかどうか使用できます。 ドキュメント 、 ブック 、および プレゼンテーション のオブジェクトの アクセス許可 プロパティは返されません 何も 作業中の文書には、制限されたアクセス許可はありません。 ドキュメントにアクセス許可が制限されているかどうかを判断するのにには、 Enabled プロパティを使用します。
アクセス許可 オブジェクトの使用では、Windows の権限の管理クライアントがインストールされていない場合にエラーが発生します。
例
次の使用例は、アクティブ ドキュメントに対して適用されているアクセス許可設定の情報を表示します。
Dim irmPermission As Office.Permission
Dim strIRMInfo As String
Set irmPermission = ActiveWorkbook.Permission
If irmPermission.Enabled Then
strIRMInfo = "Permissions are restricted on this document." & vbCrLf
strIRMInfo = strIRMInfo & " View in trusted browser: " & _
irmPermission.EnableTrustedBrowser & vbCrLf & _
" Document author: " & irmPermission.DocumentAuthor & vbCrLf & _
" Users with permissions: " & irmPermission.Count & vbCrLf & _
" Cache licenses: " & 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." & vbCrLf & _
" Default policy name: " & irmPermission.PolicyName & vbCrLf & _
" Default policy description: " & irmPermission.PolicyDescription
End If
Else
strIRMInfo = "Permissions are NOT restricted on this document."
End If
MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information"
Set irmPermission = Nothing
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。