chinabod的博客

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...