Private Sub Workbook_Open() '工作簿打开事件If Now > "2019-5-22 13:46:00" Then '打开时间为13:46:00之后,1-5行数据清空Rows("1:5") = ""End IfEnd Sub