例: UniformAccess property

次の例はユーザーの指示で UniformAccess プロパティの設定を切り替えます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
If acl.UniformAccess Then
  If Messagebox("Do you want to toggle?", _
  MB_YESNO + MB_ICONQUESTION, _
  "Uniform access is in effect") = IDYES Then
    acl.UniformAccess = False
    Call acl.Save
  End If
Else
  If Messagebox("Do you want to toggle?",_
  MB_YESNO + MB_ICONQUESTION, _
  "Uniform access is not in effect") = IDYES Then
    acl.UniformAccess = True
    Call acl.Save
  End If
End If