Datei löschen nach erreichen von Datum
29.06.2023 16:07:51
Wischbob
Hallo,
ich habe eine Datei bei der ich folgendes realisieren möchte.
Nach erreichen eines bestimmten Datums soll sich die Datei selbständig nach Aufruf löschen und auch nicht wiederherstellbar sein.
Möglichst auch ohne Möglichkeit, diese wieder herzustellen.
Da die Datei sich höchstwahrscheinlich nicht komplett löschen kann, reicht natürlich auch der Inhalt komplett.
Die Datei ist so aufgebaut bis jetzt, das sie nach aufrufen eines SUB selbständig alle Blätter ausblendet.
Hier soll die das oben beschriebene irgendwie mit verwurstet werden. Das muss ja ins Workbook?
Sub ausblenden()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name > "111" Then
wks.Visible = xlSheetHidden
End If
Next
Workbooks("Datei.xlsm").Close SaveChanges:=True
End SubKann man den Code so erweitern, das
-meine oben gewünschte Funktion erhalten ist
-sich Excel komplett beendet? Habe es mit application.close versucht anstatt dem
Workbooks("Datei.xlsm").closeDas geht aber leider nicht
Zudem ist nen kleiner Fehler drin, da ja eigentlich das Blatt 111 sichtbar bleiben sollte. Mir reicht es aber, wenn sich die Datei bzw Anwendung beendet
Nach starten der Datei erneut ist dann auch nur das Sheet 111 offen. Von daher ist das ok so
In Zukunft soll also nach Aufruf der Schaltfläche folgendes passieren:
-Ausblenden aller Blätter bis auf 111
-Speichern ohne Rückfrage und beenden möglichst des Programms
-Nach erreichen des Datums selbständiges löschen ohne Wiederherstellung
Der Inhalt ist jetzt nicht super sensibel, aber hätte gern die Gewissheit das der 0815 User immer mit der aktuellsten Version arbeitet, die er sich dann besorgen muß.
Daher kam mir die Idee