| Вопрос: Безопасность в VBA?????????? | Добавлено: 26.01.07 13:31 |
Автор вопроса:  Konstantin
|
|
Народ подскажите!!!!
Есть диапазон данных, например A1:A10, как поставить в VBA пароль чтобы при попытке изменить данные запрашивался пароль, при правильном заведении давал изменить, при неправильном оставлял ячейку как есть (защищенной)??????????? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  ADSemenov.ru Вопросов: 5 Ответов: 276 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 26.01.07 15:32 |
|
____ Приходит в голову вариант обработки события изменения ячеек диапазона и восстановление исходного значения, если что неправильно.
____ Может быть потребуется держать "зеркальный" диапазон исходных значений. |
||
|
Номер ответа: 2 Автор ответа: Konstantin Вопросов: 7 Ответов: 12 |
Профиль | Цитата | #2 | Добавлено: 26.01.07 16:24 |
| Это немного не то. Исходных данных вообще нет(это пустые ячейки). Пароль необходим для того, чтобы человек знающий его мог внести изменения в данные ячейки, а любой другой нет. | ||
|
Номер ответа: 3 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 26.01.07 17:01 |
| Ну, вообще-то в excel реализована защита листа как встроенная функция. а те ячейки на листе, которые править можно всем, тебе надо предварительно сделать незащищенными и потом включить защиту листа. | ||
|
Номер ответа: 4 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 26.01.07 17:16 |
|
____ Так в чём же проблема (особенно, если пустые)?
____ "Выкинуть" запрос на ввод пароля при изменении диапазона и вернуть "пусто" в ячейку, если пароль не знает. А VBA проект закрыть. |
||
|
Номер ответа: 5 Автор ответа: KonstantinВопросов: 7 Ответов: 12 |
Профиль | Цитата | #5 | Добавлено: 29.01.07 15:20 |
| А как это на практике сделать?? | ||
|
Номер ответа: 6 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | Цитата | #6 | Добавлено: 04.02.07 10:49 |
|
пробуй так:
в коде листа Sub Worksheet_Change(ByVal Target As Range)
'... 'код проверки адреса ячейки через Target 'по условию ввод пороля 'по условию проверка пороля '... End Sub |
||
Страница: 1 |