禁用excel的保存和另存为，懵了

哐哐~

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Me.Saved = True
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
6.     Cancel = True
   
7. End Sub
   

复制代码

网上找的方法，在宏编辑器里的ThisWorkBook下上述代码，可禁用excel的保存和另存为的功能，一输入上述代码就生效了，这个代码也一直保存不到VB里面，直接懵了，如何把这段代码保存。

phsu

隨便寫一個宏，執行這個宏以停止事件功能，就可存檔了。
Sub test()
    Application.EnableEvents = False
End Sub

bajifeng

phsu 发表于 2015-12-15 07:52
隨便寫一個宏，執行這個宏以停止事件功能，就可存檔了。
Sub test()
    Application.EnableEvents = Fal ...

很好很强大，处理简洁高效。

※矾风※

phsu 发表于 2015-12-15 07:52
隨便寫一個宏，執行這個宏以停止事件功能，就可存檔了。
Sub test()
    Application.EnableEvents = Fal ...

厉害！很实用

qinyu0745

停止事件功能，留个记号！！谢谢

wjcmouse

真实用，这样子也不怕别人将文件另存为XLSX，然后破解VBA的设置了。

wuliaolang

phsu 发表于 2015-12-15 07:52
隨便寫一個宏，執行這個宏以停止事件功能，就可存檔了。
Sub test()
    Application.EnableEvents = Fal ...

昨天电脑中了宏病毒，就是这么干的