an Georg_Zi
31.12.2002 11:43:41
thomas
danke für Deine prompte Hilfe.Habe Deine Code wie folgt ergänzt,das problem ist nur , - die Datei besteht weiter.
Sorry, könntest Du da nochmal draufschauen,bin halt noch lausiger Anfänger.
Besten Dank
thomas
Sub zMloesch()
If Date >"30.12.2002" Then
MsgBox "Wir hoffen, es hat Ihnen gefallen !"
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.DisplayAlerts = True
ThisWorkbook.Close False
End If
End Sub