Examples: ProtectReaders property

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
formNameIn = Lcase(Inputbox("Name of form?"))
Forall form In db.Forms
  If Lcase(form.Name) = formNameIn Then
    If form.ProtectReaders Then
      form.ProtectReaders = False
      Messagebox "ProtectReaders is set for " _
      & form.Name
    Else
      form.ProtectReaders = True
      Messagebox "ProtectReaders is not set for " _
      & form.Name
    End If
    Exit Sub
  End If
End Forall
Messagebox "The form """ & formNameIn & """ does not exist"