作業中の文書の Permission コレクションから、すべての UserPermission オブジェクトを削除します。
構文
式。Removeall
式Permission オブジェクトを表す変数。
注釈
RemoveAll メソッドは、Permission コレクションに追加されたすべての UserPermission を削除し、作業中のドキュメントに対する制限を無効にします。 RemoveAll メソッドを呼び出した後、Permission オブジェクトの Enabled プロパティは False を返し、Count プロパティは 0 (ゼロ) を返します。
例
次の使用例は、すべてのユーザー権限を削除するのには、作業中の文書上の制限を無効にするのには、 RemoveAll メソッドを使用します。
Dim irmPermission As Office.Permission
Set irmPermission = ActiveWorkbook.Permission
If irmPermission.Enabled Then
irmPermission.RemoveAll
MsgBox "All permissions removed." & vbCrLf & _
"Count: " & irmPermission.Count & vbCrLf & _
"Enabled: " & irmPermission.Enabled, _
vbInformation + vbOKOnly, "IRM Information"
Else
MsgBox "This document is not restricted.", _
vbInformation + vbOKOnly, "IRM Information"
End If
Set irmPermission = Nothing
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。