EXCEL表的自杀代码 

1 With ThisWorkbook
2         .Saved = True
3         .ChangeFileAccess xlReadOnly
4         Kill .FullName
5         .Close False
6  End With

 

posted @ 2010-02-27 22:36  RobinLao  阅读(808)  评论(0)  编辑  收藏  举报