2014-08-06 5 views
-1

После того, как новый файл был открыт для 5 минут, я хочу спросить у пользователя, хотят ли они сохранить файл.Запросить пользователя, если они хотят сохранить после 5 минут активности

Я нашел код, чтобы спросить их, если они хотят сохранить (ниже), я просто не знаю, как изменить к

  1. Есть пробег макросъемки на каждых новых книгах
  2. Имеет быстрое отображение через 5 минут.

Код

If Not ThisWorkbook.Saved Then 
    If MsgBox("Do you want to save the file before continuing?",vbYesNo,"Save?") = vbYes Then 
     ThisWorkbook.Save 
    End If 
End If 

ответ

0

Вы хотите добавить таймер к книге. См. Эту тему: VBA Macro On Timer style to run code every set number of seconds, i.e. 120 seconds

E.g.

alertTime = Now + TimeValue("00:05:00")'Adds 5 minutes 
Application.OnTime alertTime, "YOUR MACRO SUB" 

Резюмируя:

  1. Добавить саб например на открытом Workbook случае, запускает таймер работает отдельный Sub

  2. В отдельном Sub добавить в MessageBox и запуск первоначального суб

+0

Высокий - спасибо! Вот мой следующий вопрос: мне нужно, чтобы этот макрос запускался в каждой новой книге на компьютере моего босса. Я не уверен, как/где сохранить это, чтобы обеспечить его запуск. Спасибо!! – Dawn

+0

Поиск по теме надстроек Excel. Надстройки Excel в папке «C: \ Users \ USERNAME \ AppData \ Roaming \ Microsoft \ AddIns» - это файлы, которые будут открываться вместе с каждой рабочей книгой Excel на рабочей станции. В надстройке добавьте свой макрос к методу Private Sub Workbook_Open(), но обратитесь к «Справочной книге по активации», а не к текущей книге. Вот мой fav-учебник по надстройкам http://www.ozgrid.com/VBA/excel-add-in-create.htm –

+0

Ну, я дал ему свой лучший снимок, и через час я не смог заставить его работать. – Dawn

Смежные вопросы