Excel工作表打开一次后自动销毁文件，回收站中都找不到

一次性物品在生活中随处可见，但是你见过一次性Excel工作表吗？简单地说就是你发给客户的Excel工作表，他只能打开浏览一次，一旦他关闭Excel工作表后，文件会自动删除，而且删除得干干净净，回收站都找不到。

这样设置的目的是为了保证文件的安全性，如果是重要文件未被及时删除，造成内容泄露，给公司造成不必要的损失就亏大了，所以说设置一次性文件很有必要。

我们先来看一下展示效果。是不是觉得很神奇呢？接下来一起探讨Excel一次性文件怎么制作吧！

步骤一：通过编辑VBA代码来制作一次性工作表。首先右键单击示例工作表，然后左键单击右键菜单中的查看代码选项，打开Visual Basic编辑器。在工程资源管理器窗口中左键双击【ThisWorkbook】选项，打开ThisWorkbook的代码窗口，并将以下代码复制粘贴到代码窗口中。

代码区域：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

Application.Quit

End Sub

步骤二：先别着急关闭Visual Basic编辑器，接下来要做的是限制VBA代码查看和编辑权限，如果不进行加密设置的话，别人可以随意更改和查看代码，那么你所编辑的VBA代码指令就失效了，前面做的准备工作就白费了。对VBA代码加密具体操作流程请参考文章 Excel工作簿自动销毁功能，使用时间到期后自动删除文件 ，在步骤三中有详细的操作指南。设置完成后关闭Visual Basic编辑器回到Excel工作表界面。

步骤三：最后一步，但也是最最重要的一步，看过上一篇文章的小伙伴请注意啦，这次的操作方法不同于上一篇文章的操作。虽然都是将Excel工作表另存为Excel启用宏的工作薄(*.xlsm)，但是本次需要将Excel工作表另存为二个工作表，并重命名为不同的名称。例如：第一次另存为名称设置为A.xlsm，第二次另存为的名称设置为B.xlsm。

这样设置的目的是因为另存为文件后，会将存储的文件打开，如果你执行关闭的话，文件就会被自动删除。但是如果存储两个文件，只会删除最后存储的那个文件。实例中，最后存储的文件为B.xlsm，所以被删除掉的是B.xlsm。

至此，Microsoft Excel使用一次后文件自动删除功能已经介绍完毕。在制作一次性Excel工作表之前，请做好文件的备份，文件自动删除后除非使用数据恢复软件，回收站是找不到的，请谨慎操作。