强制不让word关闭，请高手分享代码

Question

word VBA

Answer 1

这个不允许关闭，用 “任务管理器”照样可以结束word；
有啥意义？

Answer 2

excel可以用BeforeClose事件来完成，Cancel = True就可以达到我想要的结果，但是word里面没有这个事件，自己在网上找的代码运行不起来，如果有现成代码的或方法的，不知可否分享，小生不胜感激。

Answer 3

好吧，给你代码：
1、在当前document中建一个类，名称为 word1，然后插入下面代码：
Option Explicit
Public WithEvents WordApp As Word.Application
Private bClose As Boolean
Private Sub WordApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    Cancel = bClose
End Sub
Public Sub SetYunXuClose(ByVal bTrue As Boolean)
    bClose = bTrue
End Sub
2、在当前document中添加一个checkbox1，并添加下面的代码：
Option Explicit
Private mWord As New word1
Private Sub CheckBox1_Click()
    mWord.SetYunXuClose CheckBox1.Value
End Sub
Private Sub Document_Open()
    Set mWord.WordApp = Word.Application
End Sub
经过上面2步后就可以尝试了........