次の方法で共有

AllowEditRanges.Add メソッド (Excel)

保護されたワークシートに編集可能な範囲を追加します。 AllowEditRange オブジェクトを返します。

構文

式。追加 (タイトル、 範囲、 パスワード)

式AllowEditRanges オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Title 必須 String 範囲のタイトル。
Range 必須 Range Range オブジェクト。 編集可能な範囲を指定します。
Password オプション バリアント型 (Variant) 範囲のパスワードを指定します。

戻り値

範囲を表す AllowEditRange オブジェクト。

例

この例では、作業中のワークシートの範囲 A1:A4 の編集を許可し、ユーザーに通知し、指定した範囲のパスワードを変更してから、この変更をユーザーに通知します。

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 
 Set wksOne = Application.ActiveSheet 

 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:="secret" 

 ' Protect the worksheet. 
 wksOne.Protect 
 
 MsgBox "Cells A1 to A4 can be edited on the protected worksheet." 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges(1).ChangePassword _ 
 Password:="moresecret" 
 
 MsgBox "The password for these cells has been changed." 
 
End Sub

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

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