Объект AllowEditRange (Excel)

Представляет ячейки, которые можно изменить на защищенном листе.

Замечания

Используйте метод Add или свойство Item коллекции AllowEditRanges , чтобы вернуть объект 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

Методы

• ChangePassword
• Delete
• Unprotect

Свойства

• Range
• Title
• Users

См. также

• Справочник по объектной модели Excel

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.