在LOTUS NOTE视界里怎么禁止右键编辑

在LOTUS NOTE视界里如何禁止右键编辑？
在LOTUS   NOTE视界里如何禁止右键编辑？或者有其它方法？请大家帮忙？？谢谢

------解决方案--------------------
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Not(source.IsNewDoc)Then
If source.EditMode Then
Msgbox "不能直接进入编辑状态！ ",16, "系统提示 "
continue=False
End If
End If
End Sub

把这个代码放到表单的queryopen里就不能用右键进入编辑状态了!