如何让Excel表使用一次后即自我销毁？

文件要打开看过后就自动删除，如何通过VBA程序来实现呢？

解决方案：将文件的ChangeFileAccess属性设置为只读，即xlReadOnly，然后通过Kill代码删除文件即可。不过为了确保用户可以正常地查看文件一次，需要将代码写入工作簿时间“Workbook_BeforeClose”中。

具体方法如下：

第一步：新建一个工作簿（也可以打开已经存在的工作簿），按Alt+F11组合键打开VBE窗口。

第二步：双击Thisworkbook进入工作簿事件代码窗口，然后输入以下代码：

Private Sub Workbook_BeforeClose(Cancel As
Boolean)

ActiveWorkbook.ChangeFileAccess xlReadOnly ‘将文件设为只读模式

 Kill ActiveWorkbook.FullName   ‘删除文件Application.Quit   ‘退出程序

End Sub

第三步：保存工作簿，但不能关闭Excel。然后进入文件夹将文件复制两份，将两个文件夹分别命名为A.xlsm和B.xlsm。

第四步：关闭Excel，发现当前文件夹会自动删除，且不经过回收站回收，直接彻底删除。

工作簿再启用宏级文件属性为只读的前提下，通过Kill工作簿全名可以删除本工作簿。其中工作簿全名可以使用ActiveWorkbook.FullName表示也可以用Thisworkbook.FullName表示。

第五步：打开B.xlsm，然后关闭，B.xlsm也立即自我销毁。此时将A.xlsm发给客户即可。

注意，文件“自杀”的时候，工作簿的ChangeFileAccess属性有两个选项，包括xlReadWrite和xlReadOnly，只有在xlReadOnly状态下才可以实现删除当前文件。在编写这类“自杀”代码的时候，一定要先将文件备份，否则程序关闭就自我销毁，无法回收。

如何让Excel表使用一次后即自我销毁？相关推荐

帮老婆系列-关于计算Excel表去除指定时间段后的时间差
老婆给了个小小的任务,说是把工单的有效流转时长给计算出来,工单的有效流转时长=工单的开始时间-工单的结束时间-非工作时间段,看起来很简单的一件事情,耗费了我好几个小时,又用了个把小时用python实现 ...
arcgis怎么关联excel表_arcgis中如何跟excel连接？
展开全部一:arcgis属性表与excel建立连接: 1):原始数据属性表如图: excel表数据如下:32313133353236313431303231363533e58685e5aeb9313 ...
arcgis怎么关联excel表_在arcgis中添加excel表格数据-ArcGIS如何将Excel里的数据关联至地图上...
ArcGIS如何将Excel里的数据关联至地图上 1.打开一个arcgis工程文件. 2.在左侧窗口中右击面要素文件,选择"open attribute table". 3.在出现 ...
Python xlwt,xlrd对Excel表求笛卡尔积
Python xlwt,xlrd对Excel表求笛卡尔积应用背景待处理的Excel表单模版处理后导出的Excel效果具体代码实现应用背景前些日子,在项目中遇到多级分类合并问题,每一级分类格 ...
解决如何使用layui导入Excel表数据
解决如何使用layui导入Excel表数据 1.前端页面html代码展示 <button type="button" lay-submit="" clas ...
成功解决在excel表中通过数学函数转换后，接着去掉公式转为不再随着变化的数值
成功解决在excel表中通过数学函数转换后,接着去掉公式转为不再随着变化的数值目录解决问题解决方法解决问题在excel表中通过数学函数转换后,接着去掉公式转为不再随着变化的数值解决方法选 ...
如何用VBA从EXCEL表取数据？问题1：1次性整体写入，还是循环写入数组呢？问题2：取得数据后如何定位需要的那个？
1问题 1.1 如何用VBA从EXCEL表取数据? 有时候只是要把EXCEL表的数据读到VBA里经常,我们需要读入EXCEL的数据,且能明确的知道每列的意义,并且根据某一列(比如 id列/ inde ...
【备忘录一】Unity3D使用ExcelDataReader读取excel表后代码自动生成C#类
获取ExcelDataReader库可直接参考https://www.jianshu.com/p/a79e872783cb 也可以按照我总结的步骤来: 1.将ExcelDataReader下载到本地 ...
Excel百万数据导入oracle,excel表数据导入oracle的方法！（超级有用）
excel表导入oracle数据库的方法,这些方法也可以用于将其它格式的数据导入到oracle中,这里只是以excel为例.oracle9i以上.21村落‑i3?:L L4s9U#[z:u,U‑l方法 ...

如何让Excel表使用一次后即自我销毁？

如何让Excel表使用一次后即自我销毁？相关推荐

最新文章

热门文章