Як зберегти та закрити книгу після бездіяльності на певний час?
Іноді ви можете випадково закрити книгу, коли тривалий час зайняті іншими справами, що може призвести до втрати деяких важливих даних у книзі. Чи існують хитрощі для автоматичного збереження та закриття книги, якщо ви її інактивували протягом певного періоду часу?
Автоматично зберігати та закривати книгу після бездіяльності протягом певного періоду часу за допомогою VBA
У Excel немає вбудованої функції для вирішення цієї проблеми, але я можу ввести макрокод, який допоможе вам зберегти та закрити книгу після бездіяльності за певний час.
1. Увімкніть книгу, яку потрібно автоматично зберігати та закривати після бездіяльності протягом певних секунд, і натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі щоб створити Модулі і вставте в нього код нижче. Дивіться знімок екрана:
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 for Excel's Захист робочого аркуша Ця функція може швидко захистити відразу кілька аркушів або всю книгу. |

Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!











