Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

860to864: sich selber löschen ?

sich selber löschen ?
04.04.2007 09:02:50
peter
hallo excels,
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
danke Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: sich selber löschen ?
04.04.2007 14:16:17
IngGi
Hallo Peter,
so:
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Gruß Ingolf
AW: sich selber löschen ?
05.04.2007 07:10:00
peter
Hi Ingolf,
besten Dank.
Werde es nachher gleich testen.
Gruss Peter
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige