Private Sub Workbook_Open()
If Date > Tabelle3.Range(“A2”).Value Then
hinweis = MsgBox("File expired " & Format(Tabelle3.Range(“A2”).Value, “DD. MMM. YYYY”), vbOKOnly + vbCritical, “FILE EXPIRED”)
ThisWorkbook.Close (False)
End If
End Sub
VB宏设置EXCEL有效期
最新推荐文章于 2023-08-05 17:12:39 发布