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

1、新建一个EXCEL工作表

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

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

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

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

6、代码

Private Sub Workbook_Open()

Dim d1 As Date

d1 = #7/1/2017#

If d1 < Now Then

MsgBox "本文件已在" & d1 & "到期！", vbOKOnly

ThisWorkbook.Close (False)

Else

MsgBox "本文件将在" & d1 & "到期！请把欠我的工资还给我，开通永久使用权", vbOKOnly

End If

End Sub

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