[已解决]VBA帮助看看老师

excel白兔

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
End Sub




老师们这个是个事件代码吗？  是不是单独运行不了？ 我怎么才能看见这个代码的运行效果呢

最佳答案

月排行榜 / 总排行榜

zjdh

2012-5-8 20:18

excel白兔 发表于 2012-5-8 15:58
老师 复制你的代码 了  但是推出还是可以的的呀？

你试试：
无法关闭的文件.rar (5.13 KB, 下载次数: 5)

2012-5-8 20:18 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True      
End Sub
是关闭文件事件，Cancel = True 目的不允许关闭文件
试将语句放在：ThisWorkbook中，关闭文件试试。

excel白兔

zjdh 发表于 2012-5-8 15:26
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True      
End Sub

Private Sub thisWorkbook_BeforeClose(Cancel As Boolean)
    Cancel = True
End Sub
这样？？？老师

搁浅2008

1. 
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3. stop
   
4.     Cancel = True
   
5. End Sub
   

复制代码

excel白兔

搁浅2008 发表于 2012-5-8 15:53

老师 复制你的代码 了  但是推出还是可以的的呀？

搁浅2008

没有放在ThisWorkbook中吧  你可能放在模块中了

zjdh

excel白兔 发表于 2012-5-8 15:58
老师 复制你的代码 了  但是推出还是可以的的呀？

你试试：
无法关闭的文件.rar (5.13 KB, 下载次数: 5)

2012-5-8 20:18 上传

点击文件名下载附件

bikong01

是放到圈起来的地方

excel白兔

bikong01 发表于 2012-5-8 22:14
是放到圈起来的地方

谢谢 老师 呵呵{:021:}