检查Vba中的系统日期是否正确

Question

有人可以提供帮助吗？如何使用vba检查本地系统是否具有有效的日期设置。保护代码不被指定日期后运行。

以下代码是不够的，可以通过更改系统日期来中断。

Private Sub Workbook_Open()
If Date > DateSerial(2018, 5, 17) Then
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

感谢您的回复

Answer 1

确定系统时间是否被篡改的第二个最佳解决方案可能是将系统日期/时间与最新文件的日期/时间进行比较... Appdata \ Local \ Temp。免责声明：可能有更好的比较来源，我不知道Windows那么深。