EXCEL表的自杀代码

来源:互联网 发布:c语言轻量级 gui 编辑:程序博客网 时间:2024/06/05 03:22
Sub Kill_ThisWorkbook()With ThisWorkbook        .Saved = True       '保存工作簿        .ChangeFileAccess xlReadOnly    '将工作簿文件属性设为“只读”        Kill .FullName      '删除该文件        .Close False        '关闭工作簿文件,并放弃所有对此工作簿的更改。End WithEnd Sub

0 0
原创粉丝点击