Zeitänderung durch anklicken eines Button
18.03.2007 11:44:00
Torge
kann jemand helfen oder einen Hinweis geben?
Habe aus dem Forum auf Grund meiner Frage vom 17.03.2007 12:29:58 einen Lösungsvorschlag erhalten aber trotzdem noch nicht weiter gekommen. Es geht um die Funktion eine Klickbutton, mit dessen Hilfe ich die Nutzungsdauer einer Datei bei Eingabe von Daten und dem Speichern verkürzen kann. Und dies darf nur ein einziges Mal passieren nämlich beim ersten speichern. Beim erneuten speichern darf sich die Zeit nicht mehr ändern, da die Datei dann nach 2 Tagen gelöscht werden soll.
Hier ist der Hinweis den ich erhalten habe:
Eine Zelle, in der das Prüfdatum steht, ist erforderlich - und du kannst die Zelle ja anpassen - und natürlich auch ausblenden usw.
Damit dieser Vorgang nur 1x passiert (reicht ja), kannst du mit einer globalen Variabel arbeiten.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If varEinmal = False Then
ThisWorkbook.Sheets(1).Range("A1").Value = Date + 2
varEinmal = True
End If
End Sub
Diese Variabel - hier varEinmal - muss im allgemeinen Modul mit Public deklariert werden.
Und hier ist mein Code den ich benutzte für die aktuelle Nutzungsdauer:
Ablaufdatum = "15.12.2007"
'löschen wenn Ablaufdatum erreicht
ElseIf Sheets("Fin.-Anfrage").Range("J40") = 0 And DateDiff("d", Date, Ablaufdatum) MsgBox "Die Nutzungsdauer ist endgültig überschritten" _
& vbCr & "die Datei wird gelöscht."
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
'Hinweis anzeige 30 Tage vorher
ElseIf Sheets("Fin.-Anfrage").Range("J40") = 0 And DateDiff("d", Date, Ablaufdatum) Dim Antwort
Antwort = MsgBox("Diese Programmversion kann nur noch kurze Zeit genutzt werden.", _
vbOKOnly + vbInformation, "Systeminformation", "", 0)
End If
Wie kann ich beides miteinander verknüpfen, kann jemand einen Hinweis geben oder helfen?
Vielen Dank
Gr. T.