1、设置打开时弹出对话框的命令举例：
Sub AUTO_OPEN()
"输入打开工作表时要运行的代码或宏"
End Bub
2、设置关闭时弹出对话框的命令举例：
Sub AUTO_CLOSE()
"输入关闭工作表时要运行的代码或宏"
End Bub
3、设置提示框举例:：
MsgBox prompt:="温馨提示：您要打开的工作表有保护！", Buttons:=vbOKOnly, Title:="谷子提示"
i = MsgBox("系统提供不同服务，是否浏览资费信息？", vbYesNoCancel, "谷子提示：")
If i = vbYes Then
MsgBox "资费信息：********", , "谷子提示"
Else
"输入要运行的代码"
End If
4、提示框内容过长，换行vbNewLine：
MsgBox "您本次访问系统的时间是：" & Date & " " & Time & vbNewLine & "系统离到期日还剩余：" _
& DateDiff("d", Now, "2010-12-31") & " 天!" & vbNewLine & "是否查阅到期日说明？", vbYesNoCancel, "时间和到期日提示："
5、提示提示系统的日期和时间：
MsgBox "系统当前日期和时间：" & Date & " " & Time, , "时间提示"
DateDiff("d", Now, "2010-10-31") & " 天!" ‘提示离指定日期的剩余天数
6、系统时间判断命令：
Sub 判断时间测试()
If Date > "2010-05-20" Then
MsgBox "对不起，测试期间已经结束", , "谷子提示"
Else
Sheets("首页").Select '或其他命令
End If
End Sub
