Excel VBA实现文件 *
时间:2022-02-06 03:39:06
分享一段代码:
‘关闭文件时执行’文件 * 代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.ChangeFileAccess xlReadOnly ‘将文件设置为只读模式
Kill ActiveWorkbook.FullName ‘删除文件
Application.Quit ‘退出程序
End Sub
大家可以拿个没用的excel文件试试。 * 的无影无踪哦。
标签:上一篇,下一篇,文件, , ,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
excel自动更正在哪里?自动更正功能使用方法图解
2023-10-06 05:42:16
![](https://img.aspxhome.com/file/2023/7/41707_0s.jpg)
解救函数小白之Rank函数计算排名
2023-11-09 15:16:44
![](https://img.aspxhome.com/file/2023/4/a156994_0s.gif)
word如何设置行距行高使页面更美观?
2023-11-21 09:01:17
![](https://img.aspxhome.com/file/2023/5/23705_0s.jpg)
星期四这种显示方式
2023-08-29 00:41:00
怎么用手机打开Word文档 WPS Office让手机移动办公
2022-02-27 08:21:58
![](https://img.aspxhome.com/file/2023/8/21238_0s.jpg)
pdf怎么设置自动滚动速度?pdf设置自动滚动速度教程
2023-05-28 22:58:49
![](https://img.aspxhome.com/file/2023/8/14928_0s.jpg)
Word如何设置文字竖排时数字也竖着排列
2023-02-15 13:06:05
![](https://img.aspxhome.com/file/2023/4/31634_0s.png)
Excel中RAND函数的语法和用法
2023-08-27 07:12:40
![](https://img.aspxhome.com/file/2023/0/a155910_0s.png)
在excel中如何将行转换成列?
2023-09-21 00:16:20
![](https://img.aspxhome.com/file/2023/6/42526_0s.png)
Excel中快速录入大量数据的技巧
2023-06-03 18:21:06
![](https://img.aspxhome.com/file/2023/5/a156415_0s.jpg)
word如何给图表添加标题栏
2023-10-14 03:09:25
![](https://img.aspxhome.com/file/2023/4/34994_0s.png)
如何在Excel中比较数据
2022-09-10 21:09:02
![](https://img.aspxhome.com/file/2023/5/a141825_0s.jpg)
word如何在两页纸中间插入目录?
2022-08-30 08:48:47
![](https://img.aspxhome.com/file/2023/1/25871_0s.png)
EXCEL如何制作日历?EXCEL制作日历的方法
2023-07-08 07:31:50
![](https://img.aspxhome.com/file/2023/7/a153127_0s.gif)
Office365和Office2019哪个好?
2023-11-08 13:25:22
![](https://img.aspxhome.com/file/2023/4/16714_0s.png)
Gitmind思维导图中内容太多怎样节点换行?
2023-05-24 02:55:27
在word文档中怎么编辑visio图案?
2022-09-20 20:15:45
![](https://img.aspxhome.com/file/2023/2/26852_0s.jpg)
如何将word转成excel的方法
2022-11-07 03:54:35
Word文档中的图片如何压缩?
2023-04-06 09:29:46
![](https://img.aspxhome.com/file/2023/5/24825_0s.jpg)
今天介绍一种认为最完美最简单的制作excel三栏斜线表头的方法
2023-07-06 05:58:31