AllowEditRanges オブジェクト (Excel)

保護されたワークシートで編集できるセルを表す AllowEditRange オブジェクトのコレクション。

注釈

Protection オブジェクトの AllowEditRanges プロパティを使用して、AllowEditRanges コレクションを取得します。

AllowEditRanges コレクションが返されたら、Add メソッドを使用して、保護されたワークシートで編集できる範囲を追加できます。

例

この例では、作業中のワークシートの範囲 A1:A4 を編集し、指定した範囲のタイトルとアドレスをユーザーに通知します。

Sub UseAllowEditRanges() 
 
 Dim wksOne As Worksheet 
 Dim wksPassword As String 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Unprotect worksheet. 
 wksOne.Unprotect 
 
 wksPassword = InputBox ("Enter password for the worksheet") 
 
 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:=wksPassword 
 
 ' Notify the user 
 ' the title and address of the range. 
 With wksOne.Protection.AllowEditRanges.Item(1) 
 MsgBox "Title of range: " & .Title 
 MsgBox "Address of range: " & .Range.Address 
 End With 
 
End Sub

メソッド

• Add

プロパティ

• Count
• アイテム

関連項目

• Excel オブジェクト モデル リファレンス

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

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