Excel之VBA常用功能应用篇：文件自动销毁功能

Excel

之

VBA

常用功能

应

用篇：文件自

动销毁

功能

知

识

改

变

命运，科技成就未来。

一次性物品在生活中随

处

可

见

，但是你

见过

一次性

Excel

工作表

吗

？

简单

地

说

就是你

发给

客

户

的

Excel

工作表，他只能打开

浏览

一次，一旦他关

闭

Excel

工作表后，文件会自

动删

除，而且

删

除得

干干

净净

，回收站都找不到。

这样设

置的目的是

为

了保

证

文件的安全性，如果是重要文件未被及

时删

除，造成内容泄露，

给

公司造成不必要的

损

失就

亏

大了，所以

说设

置一次性文件很有必要。

既想

让别

人知道你

编辑

的

Excel

工作簿是否好用，又想保

护

自己的

劳动

成果，

鱼

与熊掌不可兼

得。事

实

并非如此，我

们

可以将

Excel

工作簿

设

定一个使用期限，

试

用到期后，

Excel

工作簿自

动

销毁

。

这样设

定

话

，既可以

让顾

客了解

Excel

工作簿的功能，也可以保

护

自己的

劳动

成果，是不

是两全其美呢！来看一下

实际

效果吧！

步

骤

一：通

过编辑

VBA

代

码

来制作一次性工作表。首先右

键单击

示例工作表，然后左

键单击

右

键

菜

单

中的

查

看代

码选项

，打开

Visual Basic

编辑

器。在工程

资

源管理器窗口中左

键

双

击

【

ThisWorkbook

】

选项

，打开

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

步

骤

三：先

别

着急关

闭

Visual Basic

编辑

器，接下来要做的是限制

VBA

代

码查

看和

编辑权

限，如

果不

进

行加密

设

置的

话

，

别

人可以随意更改和

查

看代

码

，那么你所

编辑

的

VBA

代

码

指令就失效

了，前面做的准

备

工作就白

费

了。

对

VBA

代

码

加密具体操作流程

请

参考文章

Excel

工作簿自

动销

毁

功能，使用

时间

到期后自

动删

除文件，在步

骤

三中有

详细

的操作指南。

设

置完成后关

闭

Visual

Basic

编辑

器回到

Excel

工作表界面。

步

骤

四：最后一步，但也是最最重要的一步，看

过

上一篇文章的小伙伴

请

注意啦，

这

次的操作

方法不同于上一篇文章的操作。

虽

然都是将

Excel

工作表另存

为

Excel

启用宏的工作薄

(*.xlsm)

，

但是本次需要将

Excel

工作表另存

为

二个工作表，并重命名

为

不同的名称。例如：第一次另存

为

名称

设

置

为

A.xlsm

，第二次另存

为

的名称

设

置

为

B.xlsm

。