Как сохранить и закрыть книгу автоматически после бездействия в течение заданного времени?
Иногда вы можете случайно закрыть книгу, если надолго отвлечётесь на другие дела, что может привести к потере важных данных в этой книге. Существуют ли способы автоматически Сохранить и закрыть книгу, если она не использовалась в течение заданного времени?
Автоматическое Сохранить и закрыть книги после бездействия в течение определённого времени с помощью VBA
В Excel нет встроенной функции для решения этой задачи, но я могу предложить макрос, который автоматически сохранит и закроет книгу после заданного периода бездействия.
1. Откройте книгу, которую нужно автоматически сохранять и закрывать после бездействия в течение заданного числа секунд, и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Выберите пункт Вставка > Модуль, чтобы создать скрипт Модуль, и вставьте в него приведённый ниже код. См. снимок экрана:
Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue("00:00:15")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
End Sub
Sub SavedAndClose()
ActiveWorkbook.Close Savechanges:=True
End Sub
3. Затем в области Обозреватель проектов дважды щёлкните элемент Эта книга и вставьте приведённый ниже код рядом с уже существующим скриптом. См. снимок экрана:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call TimeStop
End Sub
Private Sub Workbook_Open()
Call TimeSetting
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call TimeStop
Call TimeSetting
End Sub
4. Перейдите к модулю, вставленному на шаге 2: дважды щёлкните по нему и нажмите клавишу F5, чтобы запустить код. См. снимок экрана:
5. Через 15 секунд появится диалоговое окно с напоминанием сохранить книгу — нажмите кнопку Да, чтобы сохранить и закрыть книгу.
Советы:
(1) Во втором фрагменте кода вы можете изменить время бездействия, отредактировав эту строку:Now + TimeValue("00:00:15")
(2) Если книга ранее никогда не сохранялась, сначала появится диалоговое окно Сохранить как, в котором будет предложено сохранить её.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек