用Open事件，只要打开 就 执行，
例如在A1 单元格记录日期， 等于此日期+10填即自动 弹出窗口
做个例子：
Excel内Alt+F11双击 Thisworkbook 贴入如下代码，存为 xlsm 开启宏文档，并开启宏
Private Sub Workbook_Open()
If Date = Sheets("Sheet1").[a1] + 10 Then '如果今天 = sheet1 A1 +10
MsgBox ("提醒") '弹出窗口 提醒
Sheets("Sheet1").[a1] = Date ' sheet1 A1 改写为 今天日期
End If
End Sub
