sich selber löschen ?
04.04.2007 09:02:50
peter
habe mir folgendes kleine makro zusammengeschraubt.
nun möchte ich aber, dass die datei sich nach dem ablaufdatum selber löscht.
hat da jemand eine idee.
Sub auto_open()
Dim ablauf As Date
Dim Passwort
ablauf = "03.04.07"
If Date > ablauf Then
MsgBox "Nutzungsdauer ist abgelaufen, geben sie nun das benötigte Passwort ein"
Passwort = InputBox("", "Passwort", , 3800, 4500, "Systempasswort", 1)
If Passwort = "p_a_s_s_w_o_r_t" Then
Exit Sub
Else
MsgBox "Falsch"
ThisWorkbook.Close saveChanges:=False
End If
End If
End Sub
Anzeige