检查选定范围是否为空vba

Question

我正在努力实现：

1. 如果范围A日期是<当前日期，则MsgBox将显示它不能被编辑。
2. 如果范围A日期为=当前日期，则可以对其进行编辑。
3. 如果范围A日期为空，则可以对其进行编辑。

我只能做1号和2号，但3号却不能。 下面是我的代码。好心提醒。谢谢。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'TEST
If Range("A" & Selection.Row).Value < Date Then
    ActiveSheet.Protect Password:="123456"
    MsgBox "Only today's date row can be edited!", vbInformation, "TEST"
ElseIf Range("A" & Selection.Row).Value = Date Then
    ActiveSheet.Unprotect Password:="123456"
    ActiveSheet.EnableSelection = xlNoRestrictions
ElseIf IsEmpty(Range("A" & Selection.Row).Value) = Fals Then
    ActiveSheet.Unprotect Password:="123456"
    ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub