Чтобы остановить таймер, когда рабочая книга закрыта - PullRequest
Новая
       19

Чтобы остановить таймер, когда рабочая книга закрыта

0 голосов
/ 27 марта 2020

Я пытаюсь установить таймер, чтобы информировать пользователей о закрытии рабочей книги (Список продуктов), когда они не используют, однако, когда я закрываю эту книгу (другие рабочие книги все еще открыты), таймер продолжает работать, пока я не нажму " Кнопка «НЕТ».

как решить эту проблему?

Я настроил модуль в соответствии с этой книгой «Список продуктов»

Создаю подпрограмму runtime () для вызова msgbox 

    Sub runtimer()

       Application.OnTime Now + TimeValue("00:00:20"), "MsgBoxVariable"

    End Sub

создайте вложенный ящик сообщений, чтобы принять решение о сохранении книги или продолжить редактирование 

   Sub MsgBoxVariable()

    Dim answer As Integer

    answer = MsgBox("Do You Want To Continue Useing The Porduct List?", vbQuestion + vbYesNo, "WARNING")

      If answer = vbYes Then
        Call runtimer
      ElseIf answer = vbNo Then
        Workbooks("Product List.xlsm").Close SaveChanges:=True
        Exit Sub

        End If

   End Sub

таймер запуска, когда книга открыта. 

  Sub auto_Open()

      Call runtime

  End Sub
...