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  阅读(842)  评论(0)    收藏  举报