Hoe een werkmap opslaan en sluiten na een bepaalde tijd inactiviteit?
Soms kunt u per ongeluk een werkmap sluiten als u lange tijd met andere zaken bezig bent, waardoor belangrijke gegevens in de werkmap verloren kunnen gaan. Zijn er trucs om de werkmap automatisch op te slaan en te sluiten als je deze een bepaalde tijd hebt gedeactiveerd?
Werkmap automatisch opslaan en sluiten na inactiviteit gedurende een bepaalde tijd met VBA
Werkmap automatisch opslaan en sluiten na inactiviteit gedurende een bepaalde tijd met VBA
Er is geen ingebouwde functie in Excel om dit probleem op te lossen, maar ik kan een macrocode introduceren die u kan helpen bij het opslaan en sluiten van een werkmap na inactiviteit binnen een bepaalde tijd.
1. Schakel de werkmap in die u automatisch wilt opslaan en sluit na enige seconden inactiviteit, en druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module om een te maken Module script, en plak de onderstaande code erin. Zie screenshot:
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. Vervolgens in de Projectverkenner dubbelklik op het paneel Dit werkboek, en plak onderstaande code in het naast-script. Zie screenshot:
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. Ga naar dubbelklikken op de module die u in stap 2 hebt ingevoegd en druk op F5 sleutel om de code uit te voeren. Zie screenshot:
5. Na 15 seconden komt er een dialoogvenster tevoorschijn om u eraan te herinneren de werkmap op te slaan en te klikken Ja om de werkmap op te slaan en te sluiten.
Tips:
(1) In de eerste code kunt u de inactiviteitstijd wijzigen in een andere in deze string: Nu + Tijdwaarde ("00:00:15")
(2) Als u de werkmap nog nooit eerder hebt opgeslagen, kan het Opslaan als dialoogvenster verschijnt eerst en vraagt u om het op te slaan.
Bescherm werkblad
|
Kutools voor Excel's Bescherm werkblad functie kan snel meerdere bladen of de hele werkmap tegelijk beveiligen. |
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!