VBAのPermissionオブジェクト

Permissionオブジェクト

Permissionオブジェクトについての解説になります。

Permissionオブジェクトとは

Permissionオブジェクトは、Microsoft Office Word 2003 Document オブジェクト、Microsoft Office Excel 2003 Workbook オブジェクト、および Microsoft Office PowerPoint 2003 Presentation オブジェクトの Permission プロパティは、Permission オブジェクトを返します。

アクティブドキュメントに対して適用するアクセス許可を制限したり、特定のアクセス許可の設定について取得したり設定したりするには、Permission オブジェクトを使用します。

アクティブドキュメントでアクセス許可が制限されているかどうかを調べるには、Enabled プロパティを使用します。アクセス許可を与えられているユーザーの数を調べるには、Count プロパティを使用します。既存のアクセス許可をすべてリセットするには、RemoveAll メソッドを使用します。

アクセス許可の設定に関する追加情報を取得するには、DocumentAuthor、EnableTrustedBrowser、RequestPermissionURL、StoreLicenses の各プロパティを使用します。

Permission オブジェクトを使用すると、UserPermission オブジェクトのコレクションにアクセスできます。個別のユーザーに対して特定の権限を関連付けるには、UserPermission オブジェクトを使用します。msoPermissionPrint など、ユーザーインターフェイスを通じて設定する一部のアクセス許可はすべてのユーザーに適用されますが、UserPermission オブジェクトを使用すれば、ユーザー単位でアクセス許可を割り当てることができます。また、ユーザー単位で有効期限を設定することもできます。

Microsoft Office Information Rights Management では、管理用アクセス許可ポリシーを使用できます。管理用アクセス許可ポリシーとは、ユーザー、グループ、およびドキュメントに対するアクセス許可の一覧を管理するものです。アクセス許可ポリシーを適用するには、ApplyPolicy メソッドを使用します。ポリシー情報を取得するには、PermissionFromPolicy、PolicyName、PolicyDescription の各プロパティを使用します。

Permission オブジェクトモデルは、アクティブドキュメントでアクセス許可が制限されているかどうかにかかわらず使用できます。Document オブジェクト、Workbook オブジェクト、および Presentation オブジェクトの Permission プロパティは、アクティブドキュメントでアクセス許可が制限されていない場合でも、Nothing を返しません。ドキュメントでアクセス許可が制限されているかどうかを調べるには、Enabled プロパティを使用します。

Windows Rights Management クライアントがインストールされていない場合、Permission オブジェクトを使用すると、エラーが発生します。次の使用例は、アクティブドキュメントに対して適用されているアクセス許可設定の情報を表示します。


    Dim irmPermission As Office.Permission
    Dim strIRMInfo As String
    Set irmPermission = ActiveWorkbook.Permission
    If irmPermission.Enabled Then
        strIRMInfo = "このドキュメントではアクセス許可が制限されています。" & vbCrLf
        strIRMInfo = strIRMInfo & " 信頼済みブラウザでの閲覧: " & _
            irmPermission.EnableTrustedBrowser & vbCrLf & _
            " ドキュメント作成者: " & irmPermission.DocumentAuthor & vbCrLf & _
            " アクセス許可を持つユーザー: " & irmPermission.Count & vbCrLf & _
            " ライセンスのキャッシュ: " & irmPermission.StoreLicenses & vbCrLf & _
            " アクセス許可 URL の要求: " & irmPermission.RequestPermissionURL & vbCrLf
        If irmPermission.PermissionFromPolicy Then
            strIRMInfo = strIRMInfo & " ポリシーから適用されているアクセス許可: " & vbCrLf & _
            "  ポリシーの名前: " & irmPermission.PolicyName & vbCrLf & _
            "  ポリシーの説明: " & irmPermission.PolicyDescription
        Else
            strIRMInfo = strIRMInfo & " 既定のアクセス許可が適用されています。" & vbCrLf & _
                "  既定のポリシーの名前: " & irmPermission.PolicyName & vbCrLf & _
                "  既定のポリシーの説明: " & irmPermission.PolicyDescription
        End If
    Else
        strIRMInfo = "このドキュメントではアクセス許可が制限されていません。"
    End If
    MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM 情報"
    Set irmPermission = Nothing

シート見出しの色を設定するサンプルコード

こちらでは、シート見出しの色を設定するマクロになります。


Sub sample()

    Sheets("Sheet1").Tab.ColorIndex = 3

End Sub

実行結果

解説

こちらのマクロは、PermissionオブジェクトのColorIndexプロパティを利用しています。

Permissionオブジェクトの親オブジェクト一覧

親オブジェクト名	内容
Chartオブジェクト	ブック内のグラフを表します。ChartObject オブジェクトに含まれている埋め込みグラフか、独立したグラフシートのどちらかのグラフです。
Worksheetオブジェクト