求VBA代码：判断工作簿是否为今天第一次打开，谢谢！

荒烟平楚

求VBA代码：
      1、假如：当前工作簿是今天第一次打开，那么H1单元格内容等于""，并且H1单元格闪烁，内容等于"提示" ，字体呈紫色。
          假如：当前工作簿不是今天第一次打开，并且H1单元格内容等于""，那么H1单元格闪烁，内容等于"提示" ，字体呈紫色。
  
      2、执行“停止闪烁”按钮命令后，H1单元格停止闪烁，H1内容等于"确定"，字体呈蓝色。

      第一条用 WorkBook Open   事件，第二条用“停止闪烁”按钮触发，谢谢！

roych

这大概就是TodayNew所说的“鬼打架”吧。
1、搞不懂为什么非要判断打开次数。这很重要吗？
2、是否一定要在宏里面设置，很值得商榷。提醒的方法有很多，我觉得最佳的莫过于利用条件格式。
当然，楼主的想法也不是无法实现的，大体思路应该是这样：
a、设置打开（Workbook_Open()）事件。
b、建立一个数据表，每次打开就把日期追加一次上去（ADO操作）。
c、再一次执行ADO操作，判断当前日期计数是否大于1，如果大于1即为今天第二次打开了，执行闪烁语句（我可不清楚你所谓的闪烁是什么效果哦）。
d、为了数据不过于庞大，建议设置关闭前事件，以便删除超过2天的数据。