使Word软件标题栏上的关闭按钮无效（不起关闭退出作用）

Question

Dim cx As Word.ApplicationPrivate Sub Command1_Click()
Set cx = New Word.Application
cx.Visible = True
cx.Documents.Add
cx.WindowState = wdWindowStateMaximize
'使Word它的关闭按钮无效的代码
End Sub在Command1单击事件中打开WORD文档后我想将WORD的关闭按钮无效不起作用
请大家指教

Answer 1

Private WithEvents cx As Word.ApplicationPrivate Sub Command1_Click()
Set cx = New Word.Application
cx.Visible = True
cx.Documents.Add
cx.WindowState = wdWindowStateMaximize
'使Word它的关闭按钮无效的代码
End SubPrivate Sub cx_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean)
 MsgBox "不能关闭"
 Cancel = True
End Sub