Блокировка клавиатуры - Microsoft Office Excel

ольгаг · 26.10.2012, 12:05

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, у меня при открытии книги excel 2003 выполняется макрос, при старте этого макроса отображается форма, а по завершению макроса- форма выгружается, т.е. пользователь видит форму "Подождите...". Как можно заблокировать (отключить) клавиатуру (или нажатие клавиш ESC или ENTER) при открытии книги, чтобы пользователь не смог прервать работу макроса Workbook_Open() в модуле "ЭТА Книга"?
Спасибо.

Serge 007 · 26.10.2012, 12:28

Код:

Application.EnableCancelKey = xlDisabled
'Здесь должен быть код Вашей программы.
Application.EnableCancelKey = xlInterrupt

Код:

On Error GoTo CancelHandler

Application.EnableCancelKey = xlErrorHandler

'Здесь должен быть код Вашей программы.

CancelHandler:
Application.EnableCancelKey = xlInterrupt

If Err.Number = 18 Then _
   MsgBox "Вы нажали кнопку ESC или CTRL + BREAK"

Код:

Application.Interactive = False
'Здесь должен быть код Вашей программы.
Application.Interactive = True

ольгаг · 26.10.2012, 23:25

Спасибо большое! Добавив в макрос:
на старте:
Application.EnableCancelKey = xlDisabled
в конце:
Application.EnableCancelKey = xlInterrupt
все получилось!

26.10.2012, 12:05	#1
ольгаг Форумчанин Регистрация: 22.02.2010 Сообщений: 326	Блокировка клавиатуры Здравствуйте Уважаемые программисты! Подскажите пожалуйста, у меня при открытии книги excel 2003 выполняется макрос, при старте этого макроса отображается форма, а по завершению макроса- форма выгружается, т.е. пользователь видит форму "Подождите...". Как можно заблокировать (отключить) клавиатуру (или нажатие клавиш ESC или ENTER) при открытии книги, чтобы пользователь не смог прервать работу макроса Workbook_Open() в модуле "ЭТА Книга"? Спасибо.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Блокировка клавиатуры	parshin	Компьютерное железо	3	13.03.2012 13:12
Блокировка клавиатуры	Kamikaze-666	Общие вопросы C/C++	0	29.05.2010 06:11
Блокировка клавиатуры	Raivolo	Помощь студентам	3	09.02.2009 03:32
Блокировка клавиатуры	bunner	Помощь студентам	1	05.02.2009 20:15
блокировка клавиатуры и мыши	Var17	Win Api	6	14.04.2008 15:30

26.10.2012, 23:25	#3
ольгаг Форумчанин Регистрация: 22.02.2010 Сообщений: 326	Спасибо большое! Добавив в макрос: на старте: Application.EnableCancelKey = xlDisabled в конце: Application.EnableCancelKey = xlInterrupt все получилось!