Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / прерывание маскроса / 3 сообщений из 3, страница 1 из 1
24.06.2005, 13:34:13
    #33133370
Олег aka 3вероВоу
Олег aka 3вероВоу
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прерывание маскроса
проблема следующая:
есть несколько листов, куда макрос заносит данные
по умолчанию книга и листы защищены

для заполнения данных защита программно снимается через
Код: plaintext
sheets(item).unprotect "111"

как поставить заново защиту, если юзер прерывает через ESC или Ctrl+Break?

пытаюсь через
Код: plaintext
application.onkey "{ESC}", "blocks"

где
Код: plaintext
1.
2.
public sub blocks ()
sheets(item).protect "111"
end sub

чего-то не фурычит :(
что не верно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2005, 15:02:11
    #33133673
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прерывание маскроса
Лучше поставь protect на какое-нибудь событие листа или книги.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2005, 17:39:38
    #33134127
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прерывание маскроса
Код: plaintext
Application.EnableCancelKey = xlDisabled
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / прерывание маскроса / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 287ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2167565]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 42ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 192ms
total:  287ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]