如何给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,要先输入密码
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:66
阅读量:78
阅读量:72
阅读量:94
阅读量:34