VBA中 用KILL.FULLNAME 删除本文件 显示拒绝的权限如何解决？

已经变成只读了，就直接kill好了

ThisWorkBook.ChangeFileAccess xlsReadOnly

后面直接跟上Kill thisworkbook.fullname就好，为什么还要保存？

应该是先保存，然后复制，接着变成只读，然后删除啊

程序应该是这样的

ThisWorkBook.save

fso.copyfile ……

ThisWorkBook.ChangeFileAccess xlsReadOnly

Kill thisworkbook.fullname

测试代码没有错，可以加载。检查下其它的；

1、看是不是设置了一些其它东西。可以把窗口关了，重新新建一个，代码写进去试下；

2、输入语句On Error Resume Next 在你代码的前面呢；看是否能加载！

---