[AP] 限制資料庫不能刪除文件

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

Dim session As New NotesSession

Dim db As NotesDatabase

Set db = session.CurrentDatabase

If db.QueryAccess(session.UserName) < ACLLEVEL_MANAGER Then

Messagebox "不可在此介面刪除資料 !!"

continue = False

End If

End Sub