Hallo zusammen,
ich habe eine Arbeitsmappe, die nach 30 sekunden ohne Bearbeitung automatisch schliesst.
Nun würde ich gerne wiessen, ob ich auch nachdem die Mappe geschlossen ist eine Meldung anzeigen lassen kann?
Der code zum Schliessen sieht wie folgt aus:
In der Mappe:
Option Explicit
Dim altezeit
Dim neuezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 0, 30)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 0, 30)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Im Modul:
Sub Schließen()
ThisWorkbook.Close savechanges:=True
End Sub
|