NotesDatabaseクラスのQueryAccessでユーザのアクセス権が取得できます。
http://www.ezsite.jp/help/help65_designer.nsf/f4b82fbb75e942a685...!OpenDocument
こんなかんじ?※動作は未確認
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db= session.CurrentDatabase
If db.QueryAccess( session.UserName ) = ACLLEVEL_READER Then
Continue = False
End If
End Sub
回答ありがとうございます。このとおりのスクリプトを書いてできました。本日中に質問を終了し、上記の回答についての100ptお支払したいと思います。あと、もしおわかりになって回答いただけるようであれば、以下の2つの質問にも回答いただけないでしょうか。
1.上記のスクリプトを入れ、読者ユーザーで操作するとカレントデータベースへのアクセスについて警告が出ます。これを防ぐ方法はあるでしょうか。
2.また同様のことをwebでも操作ユーザーを読者と判別することはできるでしょうか。webビューから文書を開くときにエージェントを間に噛ませて操作ユーザーが読者である場合、Javascriptのhistory.back()で画面を戻し文書を開けないという感じです。