Добрый день уважаемые знатоки VBA !
Написал макрос, который автоматически по истечении 10 минут с момента открытия книги, сохраняет в файле изменения и закрывает книгу.
Иногда необходимо определенным категориям сотрудников, работать в файле более 10 минут, соответственно нужно как-то остановить запущенный таймер. Для этого написал макрос, который останавливает запущенный таймер, но он выдает ошибку expected variable procedure not module подскажите пожалуйста в чем может заключаться ошибка ?
Написал макрос, который автоматически по истечении 10 минут с момента открытия книги, сохраняет в файле изменения и закрывает книгу.
Иногда необходимо определенным категориям сотрудников, работать в файле более 10 минут, соответственно нужно как-то остановить запущенный таймер. Для этого написал макрос, который останавливает запущенный таймер, но он выдает ошибку expected variable procedure not module подскажите пожалуйста в чем может заключаться ошибка ?
Код |
---|
Private Sub Workbook_Open() Dim DateTime As Date DateTime = Now + TimeValue("00:10:00") Application.OnTime DateTime, "TimeOut" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim DateTime As Date On Error Resume Next Application.OnTime DateTime, "TimeOut", , False End Sub Private Sub TimeOut() ThisWorkbook.Close True ActiveWorkbook.Close True End Sub Private Sub TimerSTOP() Application.OnTime EarliestTime:=DateTime, Procedure:="TimeOut", Schedule:=False End Sub |