| Вопрос: Как убить макрос? | Добавлено: 02.07.04 23:41 |
Автор вопроса:  Anry Deriabine
|
|
Использовал макрос со следующим кодом:
Sub DemoOnTime() Dim NewHour, NewMinute, NewSecond, NewTime Cells(8, 10).Value = Now NewHour = Hour(Now) NewMinute = Minute(Now) NewSecond = Second(Now) + 1 NewTime = TimeSerial(NewHour, NewMinute, NewSecond) Application.OnTime EarliestTime:=NewTime, Procedure:="DemoOnTime" End Sub Excel перестал закрываться. При закрытии просто обновляется страница и .. все.Как решить пробелему?? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Anry Deriabine Вопросов: 14 Ответов: 29 |
Профиль | | #1 | Добавлено: 03.07.04 22:44 |
|
Сам же и отвечаю:
Был код: Private Sub Workbook_BeforeClose(Cancel ... Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.Close End Sub Изменил на: Private Sub Workbook_BeforeClose(Cancel ... Application.DisplayAlerts = False ActiveWorkbook.Save Workbooks.Close End Sub .и все стало номально |
||
|
Номер ответа: 2 Автор ответа:  Anry DeriabineВопросов: 14 Ответов: 29 |
Профиль | | #2 | Добавлено: 04.07.04 13:31 |
|
Теперь другой вопрос:
Как остановить выполнение макроса? Например,при нажатии кнопки? Запуск - Application.Run "имя макроса" А остановка? |
||
Страница: 1 |