Як автоматично зберегти та закрити файл Excel через певний час простою?
У деяких випадках, наприклад, як залишити файл Excel на спільному диску, коли файл все ще відкривається користувачем, інші не можуть редагувати книгу. Тож як автоматично закрити файл через певний час простою, щоб полегшити роботу інших? Ця стаття допоможе вам із методом VBA.
Автоматично зберігайте та закривайте файл Excel через певний час простою за допомогою коду VBA
Автоматично зберігайте та закривайте файл Excel через певний час простою за допомогою коду VBA
Щоб автоматично зберегти та закрити файл Excel через певний час простою, виконайте наступні дії.
1. Відкрийте книгу, яку потрібно зробити, щоб вона автоматично зберігалася та закривалась через певний час простою. Потім натисніть інший + F11 клавіші разом, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікно, двічі клацніть на ThisWorkbook на правій панелі, щоб відкрити вікно коду. Потім скопіюйте та вставте нижче код VBA у вікно коду. Дивіться знімок екрана:
Код VBA 1: Автоматичне збереження та закриття файлу Excel через певний час простою
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. Потім натисніть на клацання Insert > Модуліі скопіюйте та вставте код нижче у вікно Модуль. Дивіться знімок екрана:
Код VBA 2: Автоматичне збереження та закриття файлу Excel через певний час простою
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4 Натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.
5. клацання філе > Зберегти як > перегорнути. Дивіться знімок екрана:
6 В Зберегти як діалоговому вікні, виберіть папку для збереження файлу, назвіть його, як вам потрібно, у полі Ім'я файлу, виберіть Книга Excel з підтримкою макросів від Зберегти як тип і, нарешті, клацніть на зберегти кнопку. Дивіться знімок екрана:
Відтепер кожного разу, відкриваючи цю книгу, a Kutools для Excel з'явиться діалогове вікно. Введіть час, за яким ви збережете та закриєте книгу, а потім натисніть OK кнопки.
І книга буде збережена та закрита автоматично після зазначеного часу простою. Дивіться знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!