Объект AllowEditRanges (Excel)

Статья
04/07/2023

Коллекция всех объектов AllowEditRange , представляющих ячейки, которые можно изменить на защищенном листе.

Замечания

Используйте свойство AllowEditRanges объекта Protection , чтобы вернуть коллекцию AllowEditRanges .

После возврата коллекции AllowEditRanges можно использовать метод Add , чтобы добавить диапазон, который можно изменить на защищенном листе.

Пример

В этом примере Microsoft Excel позволяет редактировать диапазон A1:A4 на активном листе, а затем уведомляет пользователя о заголовке и адресе указанного диапазона.

Sub UseAllowEditRanges() 
 
 Dim wksOne As Worksheet 
 Dim wksPassword As String 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Unprotect worksheet. 
 wksOne.Unprotect 
 
 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 
 
 ' Notify the user 
 ' the title and address of the range. 
 With wksOne.Protection.AllowEditRanges.Item(1) 
 MsgBox "Title of range: " & .Title 
 MsgBox "Address of range: " & .Range.Address 
 End With 
 
End Sub

Методы

Свойства

Count
Item

См. также

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

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

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

Поделиться через