Закрыть форму по таймеру

= Мир MS Excel/Закрыть форму по таймеру - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Закрыть форму по таймеру (закрыть появившеюся форму через 5 секунд)

Дата: Среда, 12.09.2012, 17:38 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Добрый день!
Помогите пожалуйста реализовать макросом закрытите формы UserForm1 через 5 секунд.

Дата: Среда, 12.09.2012, 17:58 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

Только сегодня файл попался:
в форме UserForm1

[vba]

Code

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub

[/vba]
В модуле

[vba]

Code

Private Sub KillTheForm()
Unload UserForm1
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Закрыть форму по таймеру (закрыть появившеюся форму через 5 секунд)