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