Метод AllowEditRanges.Add (Excel)

Добавляет диапазон, который можно изменить на защищенном листе. Возвращает объект AllowEditRange .

Синтаксис

expression. Add (Title, Range, Password)

выражение Переменная, представляющая объект AllowEditRanges .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Title	Обязательный	String	Заголовок диапазона.
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 и обратная связь.