'переменная для выключения таймера
Private OffTimer1 As Boolean
Private Sub Timer1()
If OffTimer1 = True Then
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:01"), "Timer1"
If Application.WindowState <> xlMaximized Then
Application.WindowState = xlMaximized
End If
End Sub
'Макрос включения таймера
Sub Запуск()
OffTimer1 = False
Timer1
End Sub
'Макрос выключения таймера
Sub Стоп()
OffTimer1 = True
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 80