[已解决]请高手给看下为什么不好用

东方智彩

这里面的代码是操作了工具＞宏＞宏的快捷键F8后工作薄就自杀,可为什么不好用总出现参数不对,请高手给修改一下谢谢!
VHyfx3Pj.rar (4.89 KB, 下载次数: 0)

2009-12-16 13:39 上传

点击文件名下载附件
请高手给看下为什么不好用

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-16 13:44

Sub killme()
    ActiveWorkbook.ChangeFileAccess xlReadOnly
      kill ActiveWorkbook.FullName
      Application.Quit
End Sub

Private Sub Workbook_Open()
    Application.OnKey "%{F8}", "killme"
End Sub

两个Kill冲突了。Kill本来就是个命令，不能再去定义过程名，不然有歧义。

[此贴子已经被作者于2009-12-16 13:44:12编辑过]

跳转到最佳答案楼层

amulee

Sub killme()
    ActiveWorkbook.ChangeFileAccess xlReadOnly
      kill ActiveWorkbook.FullName
      Application.Quit
End Sub

Private Sub Workbook_Open()
    Application.OnKey "%{F8}", "killme"
End Sub

两个Kill冲突了。Kill本来就是个命令，不能再去定义过程名，不然有歧义。

[此贴子已经被作者于2009-12-16 13:44:12编辑过]

东方智彩

谢谢amulee老师的指教,哈哈高手啊,到了你们的手里就变的这么简单,再学习谢谢了!