1、首先打开Excel表，然后点击【开发工具-VB编辑器】
2、打开VB编辑器，点击【插入-模块】
3、双击刚才创建的模块，然后输入Sub 限时()If Date > #2/28/2020拭貉强跳# ThenEnd IfEnd Sub表示如果当当下时间大于有效期时候
4、MsgBox "有效期已过"表示如果超过有效期，那么当运行VBA时候就会弹出一个提示对话框，写着“有效期已过”
5、Exit Sub则表示如果超过有效期就会自动退出VBA程序
6、最后当运行VBA时候，如果当下时间超过有效期，那么就会弹出提示对话框
