Bestand na een bepaalde datum niet meer te gebruiken

[sjeeke]

Is er via VBA te regelen dat een excelbestand na een bepaalde datum niet meer opent?

 

[edmoor]

Dat is best te doen maar geeft, zoals alle beveiliging in Excel, geen 100% garantie.
Misschien dat je je beter kan afvragen waarom je dat zou willen en daar een andere oplossing voor bedenken.

 

[Leika]

Dag sjeeke,

Probeer deze eens :

Private Sub Workbook_Open()
    Dim exdate As Date
    exdate = "11/28/2017"
    If Date > exdate Then
        MsgBox ("You have reached end of your trail period")
        ActiveWorkbook.Close
    End If
    MsgBox ("You have " & exdate - Date & "Days left")
End Sub

Groetjes,
Leika

 

[edmoor]

Op zich werkt dat uiteraard, maar als je dan Excel in veilige modus start wordt de macro niet uitgevoerd en ben je alsnog in het document.

 

[sjeeke]

Hallo Leika,

Thanks, werkt. :thumb: Dit kan ik wel gebruiken.


@Edmoor: thanks voor de feedback. Het gaat er gewoon om dat de file niet langer dan nodig gebruikt wordt. Is niet bedoelt voor de 100% beveiliging. :thumb: