Eindvervaldatum

[Thierry61]

Is het mogelijk om in een excel bestand een einvervaldatum te creëren zodat het bestand niet meer te openen is na deze datum?
Mvg

 

[JEC.]

Bvb achter de module van Thisworkbook

Private Sub Workbook_Open()
If Date >= DateSerial(2021, 2, 10) Then
 MsgBox "Bestand verlopen", vbOKOnly
 ThisWorkbook.Close 0
End If
End Sub

 

[Thierry61]

Thanks JVeer.
Is het soms ook mogelijk dat het bestand na einddatum dan ook automatisch verwijderd wordt?

 

[HSV]

Private Sub Workbook_Open()
If Date >= DateSerial(2021, 2, 10) Then
 MsgBox "Bestand verlopen", vbOKOnly
    With ThisWorkbook
         .Saved = True
         .ChangeFileAccess xlReadOnly
    Kill .FullName
         .Close
 End With
End If
End Sub

 

[Thierry61]

Prachtig,

kan dit ook met een bestand dat constant open staat (voor dagen) waarop steeds via F9 een re calculatie gebeurd?
Dus bij het vervallen van de einddatum en drukken van F9 dat het bestand wordt verwijderd.

Mvg
Thierry

 

[cow18]

in thisworkbook is er ook een calculate-event (Workbook_SheetCalculate), dus copy-paste en je hebt je antwoord.

 

[Thierry61]

Dit werkt perfect.
Bedankt iedereen.

Mvg
Thierry

 

[snb]

Wat nu als je het bestand opent met uitgeschakelde macro's ?

 

[Thierry61]

Dan opent heet bestand als voordien.