Hvordan gemmes og lukkes en Excel-fil automatisk efter en bestemt inaktiv tid?
I nogle tilfælde, som f.eks. At efterlade en Excel-fil på en delt disk, når filen stadig åbnes af en bruger, kan andre ikke redigere projektmappen. Så hvordan lukkes filen automatisk efter en bestemt inaktiv tid for at lette andres arbejde? Denne artikel hjælper dig med VBA-metoden.
Gem automatisk og luk en Excel-fil efter en bestemt inaktiv tid med VBA-kode
Gem automatisk og luk en Excel-fil efter en bestemt inaktiv tid med VBA-kode
Gør følgende for at gemme og lukke en Excel-fil automatisk efter en bestemt inaktiv tid.
1. Åbn den projektmappe, du har brug for, for at gøre den automatisk gemt og lukket efter en bestemt inaktiv tid. Tryk derefter på andre + F11 nøgler sammen for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer dobbeltklik på ThisWorkbook i højre rude for at åbne vinduet Kode. Kopier og indsæt derefter under VBA-kode i vinduet Kode. Se skærmbillede:
VBA-kode 1: Gem automatisk og luk en Excel-fil efter en bestemt inaktiv tid
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. Fortsæt derefter med at klikke indsatte > modul, og kopier og indsæt nedenstående kode i modulvinduet. Se skærmbillede:
VBA-kode 2: Gem automatisk og luk en Excel-fil efter en bestemt inaktiv tid
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.
5. klik filet > Gem som > Gennemse. Se skærmbillede:
6. i Gem som i dialogboksen skal du vælge en mappe for at gemme filen, navngiv den, som du har brug for, i feltet Filnavn, vælg Excel-makroaktiveret projektmappe fra Gem som typen rullelisten, og klik til sidst på Gem knap. Se skærmbillede:
Fra nu af, hver gang du åbner denne projektmappe, a Kutools til Excel dialogboksen vises. Indtast det tidspunkt, du vil gemme, og luk projektmappen baseret på, og klik derefter på OK .
Og projektmappen gemmes og lukkes automatisk efter den angivne inaktiv tid. Se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!