ob das in Version 5.0/7.0 schon möglich ist kann ich nicht sagen. Ich vermute mal eher nein und hoffe das Du dich bei der Angabe Deiner Version geirrt hast. Beim schliessen kommt noch die Abfrage ob gespeichert werden soll. Das kannst Du auch noch verhindern indem du hinter Close
True schreibst für speicher, oder False für nicht.
' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Workbook_Open()
Zeitmakro
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="Zeitmakro", Schedule:=False
End Sub
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public ET As Variant
Sub Zeitmakro()
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss")
ET = Now + TimeValue("00:10:00")
Application.OnTime ET, "Schliessen"
End Sub
Sub Schliessen()
If MsgBox("Wollen Sie die Datei wirklich schliessen!!", vbYesNo + vbQuestion, "Abfrage ?") = vbYes Then
ThisWorkbook.Close
Else
Zeitmakro
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo