Hoe kun je een Excel-bestand automatisch opslaan en sluiten na een bepaalde periode van inactiviteit?
In sommige gevallen – bijvoorbeeld wanneer een Excel-bestand op een gedeelde schijf is achtergelaten en nog geopend is door een gebruiker – kunnen anderen het werkblad niet bewerken. Hoe kunt u het bestand dan automatisch sluiten na een bepaalde periode van inactiviteit, zodat anderen weer vlot verder kunnen werken? Dit artikel helpt u met een VBA-oplossing.
Excel-bestand automatisch Opslaan en sluiten na een bepaalde inactieve periode met VBA-code
Excel-bestand automatisch Opslaan en sluiten na een bepaalde inactieve periode met VBA-code
Om een Excel-bestand automatisch op te slaan en te sluiten na een bepaalde periode van inactiviteit, volgt u deze stappen.
1. Open het werkboek dat u automatisch wilt opslaan en sluiten na een bepaalde periode van inactiviteit. Druk vervolgens tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications in het rechterdeelvenster op ThisWorkbook om het codovenster te openen. Kopieer en plak vervolgens de onderstaande VBA-code in het codovenster. Zie afbeelding:
VBA-code 1: Excel-bestand automatisch Opslaan en sluiten na een bepaalde inactieve periode
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. Klik vervolgens op Invoegen > Module en kopieer de onderstaande code naar het modulevenster. Zie afbeelding:
VBA-code 2: Excel-bestand automatisch Opslaan en sluiten na een bepaalde inactieve periode
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub4. Druk tegelijkertijd op de toetsen Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
5. Klik op Bestand > Opslaan als > Bladeren. Zie afbeelding:
6. Geef in het dialoogvenster Opslaan als de gewenste bestandsnaam op in het vak Bestandsnaam, selecteer Excel-werkmap met macro’s in de lijst Opslaan als type keuzelijst en klik ten slotte op de knop Opslaan. Zie afbeelding:
Vanaf nu verschijnt er bij het openen van dit werkboek altijd een dialoogvenster Kutools voor Excel. Voer de tijd in waarop u het werkboek wilt baseren en klik op de knop OK.
Het werkboek wordt automatisch opgeslagen en gesloten na de ingestelde periode van inactiviteit. Zie afbeelding:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins