Блокировка всех ячеек листа при вводе указанного текста - PullRequest
0 голосов
/ 01 октября 2010

У меня есть лист Excel, в котором есть поля для ввода данных.

Допустим, общее количество полей равно 20. Десять из них блокируются по умолчанию каждый раз, когда пользователь открывает книгу.Теперь одно из полей просит пользователя ввести пароль.Если пароль был «AAA», то пять полей (из десяти заблокированных) будут разблокированы.Если пользователь вводит пароль как «BBB», то все ячейки рабочего листа будут доступны только для чтения и заблокированы.

Я остановлюсь на случае, когда пользователь вводит «BBB».Я попробовал этот код:

if Range("Password").value="BBB" then
 cells.select
 selection.locked=true
end if

Это выдает ошибку "Переполнение".

1 Ответ

0 голосов
/ 26 ноября 2010
If Range("Password").Value = "BBB" Then
   ActiveSheet.UsedRange.Locked = True
End If
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...