共用方式為


Excel) (AllowEditRange 物件

代表可以在受保護的工作表上編輯的儲存格。

註解

使用Add方法或AllowEditRanges集合的Item屬性可傳回AllowEditRange物件。

傳回 AllowEditRange 物件之後,您可以使用 ChangePassword 方法來變更密碼,以存取可在受保護工作表上編輯的範圍。

範例

在此範例中,Microsoft Excel 允許編輯使用中工作表上的 「A1:A4」 範圍、通知使用者,然後變更此指定範圍的密碼,並通知使用者這項變更。

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

方法

屬性

另請參閱

支援和意見反應

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