埋め込みビューの対象としているビューの「Queryopendocument」イベントで

Continue = False

とすればいいのではないでしょうか？

-----------------------------------------------------------------------------------------

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
    Continue = False
End Sub

およよ様

教えてくださって、ありがとうございました！

教えてくださった方法で、解決しました。