共用方式為

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 支援與意見反應。