Добрый вечер, уважаемые форумчане
Думаю над одной задачкой, но никак не могу додумать, помогите пожалуйста.
Необходимо чтобы при открытии книги появлялось окно msgbox, в котором есть две кнопки Да и Отмена
Если нажимаешь Да, то запускается макрос (Macro1)
Если нажимаешь Отмена, то макрос (Macro1) не запускается
Но как нужно модифицировать код, так чтобы, если в течение 5 секунд после открытия книги и бездействия пользователя (т.е. не нажата ни одна кнопка в msgbox), окно msgbox закрывалось, а сам макрос (Macro1) был запущен ?
В качестве начального решения использовал следующий код, но он почему-то не закрывает автоматически окно MsgBox и не запускает макрос,
и
Думаю над одной задачкой, но никак не могу додумать, помогите пожалуйста.
Необходимо чтобы при открытии книги появлялось окно msgbox, в котором есть две кнопки Да и Отмена
Если нажимаешь Да, то запускается макрос (Macro1)
Если нажимаешь Отмена, то макрос (Macro1) не запускается
Но как нужно модифицировать код, так чтобы, если в течение 5 секунд после открытия книги и бездействия пользователя (т.е. не нажата ни одна кнопка в msgbox), окно msgbox закрывалось, а сам макрос (Macro1) был запущен ?
В качестве начального решения использовал следующий код, но он почему-то не закрывает автоматически окно MsgBox и не запускает макрос,
Код |
---|
Private Sub Workbook_Open() Dim msg As String, runcode As Long msg = "Нажмите Отмена для отмены запуска макроса, в противном случае макрос будет запущен в течение 5 сек.!" runcode = CreateObject("Wscript.Shell").Popup(msg, 5, "Выберите действия:", vbOKCancel) If runcode = 2 Then End Call Macro1 End Sub |
Код |
---|
Sub Macro1() MsgBox "макрос" End Sub |