datum in VBA code niet correct

[lv70]

Goedendag,

In mijn excel sheet heb ik een vba code aangemaakt. De bedoeling is dat zodra het excel bestand geopend wordt de huidige datum wordt gecontroleerd.
Is de huidige datum hoger dan de datum in de VBA (datum is verstreken) dan moet het bestand beveiligd worden.
Is de datum in de VBA nog niet verstreken dan mag het bestand gewoon functioneren.

Hiervoor heb ik onderstaande:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Date > 30 / 11 / 2018 Then ActiveSheet.Protect Password:="test"


End Sub

Probleem is nu dat ongeacht de datum in de VBA, de sheet beveiligd wordt als het > teken wordt gebruikt achter date.
Gebruik ik het < teken dan functioneert de sheet ongeacht of de datum hoger of lager is dan de werkelijke datum.

Ik heb al e.e.a. na gezocht maar kom nog niet veel verder.

 

[emields]

plaats een simpel voorbeeldbestand.

 

[lv70]

Na nog wat zoeken een oplossing gevonden op het forum, met wat aanpassing functioneert het nu naar wens door volgende VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim exdate As Date
exdate = "01/09/2019"
If Date > exdate Then
MsgBox ("licentie verlopen")
ActiveSheet.Protect Password:="test"
ActiveWorkbook.Close
End If
MsgBox ("You have " & exdate - Date & "Days left")
End Sub

bedankt voor de reactie

 

[emields]

plaats

Application.DisplayAlerts = False

na

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim exdate As Date
exdate = "01/09/2019"
If Date > exdate Then
MsgBox ("licentie verlopen")

anders drukken ze op annuleren en staat uw code er voor niets.