- 博客(1)
- 资源 (3)
- 收藏
- 关注
原创 VB宏设置EXCEL有效期
Private Sub Workbook_Open()If Date > Tabelle3.Range(“A2”).Value Thenhinweis = MsgBox("File expired " & Format(Tabelle3.Range(“A2”).Value, “DD. MMM. YYYY”), vbOKOnly + vbCritical, “FILE EXPIRED”)ThisWorkbook.Close (False)End IfEnd Sub...
2020-06-20 14:36:19
1872
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人