共用方式為

Excel) (AllowEditRanges.Item 屬性

  • 發行項

傳回集合中的單一物件。

語法

運算式。專案 (索引)

表達 代表 AllowEditRanges 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
Index 必要 Variant 物件的名稱或索引編號。

範例

此範例允許編輯使用中工作表上的 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" 
 
 MsgBox "Cells A1 to A4 can be edited on the protected worksheet." 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges.Item(1).ChangePassword _ 
 Password:="moresecret" 
 
 MsgBox "The password for these cells has been changed." 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。