次の方法で共有

AllowEditRange.ChangePassword メソッド (Excel)

  • [アーティクル]

保護されたワークシートで編集できる範囲のパスワードを変更します。

構文

式。ChangePassword (Password)

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

パラメーター

名前 必須 / オプション データ型 説明
Password 必須 文字列型 (String) 新しいパスワードを示す文字列を指定します。

例

この例では、作業中のワークシートの範囲 A1:A4 の編集を許可し、ユーザーに通知し、指定した範囲のパスワードを変更してから、ユーザーに変更を通知します。 このコードを実行する前に、ワークシートの保護を解除する必要があります。

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 Dim strPassword As String 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 
 strPassword = InputBox("Please enter the password for the range") 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:=strPassword 
 
 strPassword = InputBox("Please enter the new password for the range") 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges("Classified").ChangePassword _ 
 Password:="strPassword" 
 
 MsgBox "The password for these cells has been changed." 
 
End Sub

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

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