Метод AllowEditRange.ChangePassword (Excel)

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

Синтаксис

expression. ChangePassword (пароль)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Password	Обязательный	String	Новый пароль.

Пример

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

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

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

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