Как сохранить и закрыть книгу после бездействия в течение определенного времени?
В некоторых случаях вы можете случайно закрыть книгу, когда долгое время заняты другими делами, что может привести к потере некоторых важных данных в книге. Есть ли какие-нибудь уловки для автоматического сохранения и закрытия книги, если вы отключили ее на определенное время?
Автоматическое сохранение и закрытие книги после бездействия в течение определенного времени с помощью VBA
В Excel нет встроенной функции для решения этой проблемы, но я могу ввести код макроса, который поможет вам сохранить и закрыть книгу после бездействия в течение определенного времени.
1. Включите книгу, которую вы хотите автоматически сохранить и закрыть после бездействия в течение определенных секунд, и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули для создания Модули script и вставьте в него код ниже. Смотрите скриншот:
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) В первом коде вы можете изменить время бездействия на другое в этой строке: Сейчас + TimeValue ("00:00:15")
(2) Если вы никогда раньше не сохраняли книгу, Сохранить как диалоговое окно появится первым и попросит вас сохранить его.
Защитить лист
|
Kutools для Excel Защитить лист Функция может быстро защитить несколько листов или всю книгу сразу. |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!