急着交差：如何实现屏蔽word菜单中另存、打印和编辑菜单项

Question

单位项目急啊：处于保密要求，只要求用户有看的功能，不能打印、修改、另存等。实现屏蔽word菜单中另存、打印和编辑菜单项

Answer 1

用WithEvents声明Word对象，你会发现你所想要的东西
Public WithEvents WordObj As Word.Application
Private Sub WordObj_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean)
'试着在此处加一条Cancel=True
End SubPrivate Sub WordObj_DocumentBeforePrint(ByVal Doc As Word.Document, Cancel As Boolean)
'试着在此处加一条Cancel=True
End SubPrivate Sub WordObj_DocumentBeforeSave(ByVal Doc As Word.Document, SaveAsUI As Boolean, 
Cancel As Boolean)
'试着在此处加一条Cancel=True
End SubPrivate Sub WordObj_DocumentChange()End SubPrivate Sub WordObj_WindowSelectionChange(ByVal Sel As Word.Selection)End Sub
看见了吧，都在你掌握之中呢！