Excel工作簿自动销毁功能,使用时间到期后自动删除文件

灰暗的星星灰暗的星星灰暗的星星灰暗的星星灰暗的星星
 
分类:技术文章

想必很多人都使用过付费软件,不同类型的付费软件,软件到期后,对用户使用软件的限制规则也不相同。有些软件试用到期后会限制软件的关键功能,有些软件试用到期后会阻止软件打开。

我们在使用Microsoft Excel时,有时候会花费大量的时间编辑函数,编辑VBA代码,让Excel工作簿变得十分强大。甚至有些人专门开发一些Excel工作簿,供别人付费使用,与此同时版权保护成为难题。

 

 

既想让别人知道你编辑的Excel工作簿是否好用,又想保护自己的劳动成果,鱼与熊掌不可兼得。事实并非如此,我们可以将Excel工作簿设定一个使用期限,试用到期后,Excel工作簿自动销毁。这样设定话,既可以让顾客了解Excel工作簿的功能,也可以保护自己的劳动成果,是不是两全其美呢!来看一下实际效果吧!

 

动图封面

 

步骤一:要实现这么高级的功能,当然离不开VBA啦!首先右键单击示例工作表,然后左键单击【查看代码】选项,最后在Visual Basic编辑器中左键双击工程资源管理器中的【ThisWorkbook】选项,并将以下代码复制粘贴到右侧的代码窗口中。

请注意:代码【If DateDiff("d", DateSerial(2019, 8, 16), Date) >= 30 Then】中,(2019,8,16)指代的是起始日期,Date指代的是系统当前日期,>=30指代的是使用期限为30天。起始日期和使用期限可根据自身情况修改。

 

动图封面

 

代码区域:

Private Sub Workbook_Open()

If DateDiff("d", DateSerial(2019, 8, 16), Date) >= 30 Then

MsgBox "此文件试用期限为30天,目前您的使用期限已到,请联系开发者!", 48, "温馨提醒您:"

Call KillThisWorkbook

Else

Exit Sub

End If

End Sub

步骤二:接下来需要插入一个模块。首先右键单击工程资源管理器窗口,并将鼠标指针移动至插入选项,然后左键单击【模块】选项。最后将以下代码复制粘贴到模块1的代码窗口中。

 

动图封面

 

代码区域:

Option Explicit

Sub KillThisWorkbook()

Application.DisplayAlerts = False

With ThisWorkbook

.Saved = True

.ChangeFileAccess xlReadOnly

Kill .FullName

.Close

End With

Application.DisplayAlerts = True

End Sub

步骤三:这时候我们发现一个问题,VBA代码如果不进行加密操作,任何人都可以通过删除代码来破解Excel工作薄的使用期限,这时候我们需要将VBA代码加密,以阻止他人更改代码。

首先左键单击菜单栏中的工具选项,接着左键单击下拉菜单中的VBAProject属性。然后在VBAProject工程属性对话框中左键单击保护选项卡,并在查看时锁定工程前的方框中打上对勾。最后在查看工程属性的密码中分别输入密码和确认密码,输入完毕后左键单击确定按钮,并关闭Visual Basic编辑器。

 

动图封面

 

步骤四:最最重要的一步,否则你前面的努力就白费了。首先左键单击菜单栏中的文件选项卡,然后左键单击另存为选项,在右侧选择文件的存储路径。最后在另存为对话框中的保存类型,选择Excel启用宏的工作薄(*.xlsm),并点击保存按钮。

 

动图封面

 

至此,Microsoft Excel使用期限到期后文件自动销毁功能已经介绍完毕。是不是觉得很炫酷呢?有没有科幻大片的感觉?觉得好玩的小伙伴们,抓紧时间动手实践操作。Excel高级机能学会了,那么你距离脱单又进了一步,加油吧!

动动手指点击关注和转发,让更多的人告别加班的烦恼,每天掌握一些科技小技巧,相信也会为您的工作和生活带来便捷。