Datei unwiederruflich löschen
28.08.2003 13:14:19
Jürgen
bei mir klappt es nicht.
Datei unwiederruflich zum bestimmten Termin löschen ohne das sich ein Macro aufmacht und umgangen werden kann.
Sub Datloesch()
If Date >"28.08.2003" Then
MsgBox "Ihre Testphase ist vorbei!"
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.DisplayAlerts = True
ThisWorkbook.Close False
End If
End Sub
Hiermit löscht sich zwar die Datei, aber wenn das Macro deaktiviert wird
wir der Sinn verfehlt und es können trotzdem Unbefugte daraufzurückgreifen
Wer kann mir helfen - der Odner liegt d:\Urlaub 2003.xls - so das auch ich es verstehe Danke im vorraus an alle Es wäre super wenn Ihr die Formel so schreibt, dass ich Sie nur übertragen brauche- und auch wohin