Private Sub Workbook_Open()
Dim Password, Pword
If Date > Sheet1.[a1] Then '设定一个时间，到期时间，date是返回当前日期。
Range("a2:h10").Select '选中需要销毁的单元格范围
Selection.FormulaR1C1 = "到期" '用“到期”来填充。
Workbooks(ThisWorkbook.Name).Save
end if
Password = "mk0" '预先设置好自己的密码
Pword = InputBox("打开文件需密码认证，请输入密码认证身份权限!此表格在202-07-03当天自动清除数据，请做好准备！")
If Pword <> Password Then
MsgBox "对不起，没有访问权限！请联系：李华 13621449532！"
ThisWorkbook.Close
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024