AllowEditRanges.Add 方法 (Excel)

會在受保護的工作表中新增可以編輯的範圍。 傳回 AllowEditRange 物件。

語法

表達。新增 (標題、範圍、密碼)

詞 代表 AllowEditRanges 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Title	必要	字串	範圍的標題。
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 支援與意見反應。