如何给EXCEL文件设定使用日期到期后自动关闭

1、新建一个EXCEL工作表

2、将工作表保存为启用宏的工作表

3、依次点击文件--EXCEL选项-打开设置宏对话框，而后依次点击信任中心，信任中心设置，进入下一个对话框

4、点击宏设置，而后启用所有宏，而后确定

5、在工作表内，按ALT+F11，进入VBA编辑界面，而后将代码复制到workbook工作区

6、代码Private Sub Workbook_Open()Dim d1 钽吟篑瑜As Dated1 = #7/1/2017#If d1 < Now ThenMsgBox "本文件已在" & d1 & "到期！", vbOKOnlyThisWorkbook.Close (False)ElseMsgBox "本文件将在" & d1 & "到期！请把欠我的工资还给我，开通永久使用权", vbOKOnlyEnd IfEnd Sub

7、加密工程文件，点击工具--VBA工程属性-保护，对VBA进行加密，这样别人打开VBA，要先输入密码