Hvordan gemmes og lukkes projektmappe efter inaktivitet i en vis periode?

I nogle gange kan du ved et uheld lukke en projektmappe, når du har travlt med andre anliggender i lang tid, hvilket kan miste nogle vigtige data i projektmappen. Er der nogle tricks til automatisk at gemme og lukke projektmappen, hvis du har inaktiveret den i en vis periode?

Gem automatisk og luk projektmappe efter inaktivitet i en vis tid med VBA

Gem automatisk og luk projektmappe efter inaktivitet i en vis tid med VBA

Der er ingen indbygget funktion i Excel til at løse dette problem, men jeg kan introducere en makrokode, som kan hjælpe dig med at gemme og lukke projektmappe efter inaktivitet på et bestemt tidspunkt.

1. Aktivér den projektmappe, du automatisk vil gemme, og luk efter inaktivitet i nogle sekunder, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler at oprette en Moduler script, og indsæt nedenstående kode til det. Se skærmbillede:

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. Derefter i Projekt Explorer dobbeltklik på ruden Denne arbejdsbog, og indsæt nedenstående kode i det næste script. Se skærmbillede:

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. Gå til dobbeltklik på det modul, du indsatte i trin 2, og tryk på F5 nøgle for at køre koden. Se skærmbillede:

5. Derefter, efter 15 sekunder, vises en dialogboks, der minder dig om at gemme projektmappen, og klik på Ja for at gemme og lukke projektmappen.

tips:

(1) I den første kode kan du ændre inaktivitetstiden til anden i denne streng: Nu + tidsværdi ("00:00:15")

(2) Hvis du aldrig har gemt projektmappen før, Gem som dialogboksen kommer først ud og beder dig om at gemme den.