Hogyan lehet menteni és bezárni a munkafüzetet egy bizonyos ideig tartó inaktivitás után?
Bizonyos esetekben véletlenül bezárhat egy munkafüzetet, ha sokáig más ügyekkel van elfoglalva, ami elveszíthet néhány fontos adatot a munkafüzetből. Van-e trükk a munkafüzet automatikus mentésére és bezárására, ha egy bizonyos ideig inaktiválta?
Automatikus mentés és bezárás a munkafüzet után, ha bizonyos ideig a VBA-t használja
Automatikus mentés és bezárás a munkafüzet után, ha bizonyos ideig a VBA-t használja
Az Excel programban nincs beépített funkció a probléma megoldására, de bemutathatok egy makrokódot, amely segíthet a munkafüzet mentésében és bezárásában, ha inaktivitást jelent egy bizonyos idő alatt.
1. Engedélyezze az automatikusan menteni kívánt munkafüzetet, amelyet egy bizonyos másodpercig inaktivitás után bezár, majd nyomja meg az gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok létrehozni a Modulok szkriptet, és illessze be a kód alá. Lásd a képernyőképet:
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. Ezután a Project Explorer panelen kattintson duplán Ez a munkafüzet, és illessze be a kód alatt a mellette lévő parancsfájlba. Lásd a képernyőképet:
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. Kattintson duplán a 2. lépésben beillesztett modulra, és nyomja meg a gombot F5 gombot a kód futtatásához. Lásd a képernyőképet:
5. Ezután 15 másodperc múlva megjelenik egy párbeszédpanel, amely emlékezteti a munkafüzet mentésére, majd kattintson a gombra Igen a munkafüzet mentéséhez és bezárásához.
Tipp:
(1) Az első kódban az inaktivitás idejét másra módosíthatja ebben a karaktersorozatban: Most + TimeValue ("00:00:15")
(2) Ha még soha nem mentette el a munkafüzetet, akkor a Mentés másként Először megjelenik a párbeszédpanel, és kéri, hogy mentse.
Munkalap védelme
|
Kutools Excelhez Munkalap védelme funkcióval egyszerre több lap vagy az egész munkafüzet megvédhető. |
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!