Examples: LockHolders property (NotesView - LotusScript®)

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  
  REM Exit if locking is not enabled
  If Not db.IsDesignLockingEnabled Then
    Print "Design locking not enabled"
    Exit Sub
  End If
  
  REM Get view
  Dim view As NotesView
  Set view = db.GetView("Main View")
  
  REM Display lock holders
  holders = view.LockHolders
  If holders(0) = "" Then
    Messagebox "None",, "Lock holders"
  Else
    Forall h In holders
      msg$ = msg$ & h & Chr(13)
    End Forall
    Messagebox msg$,, "Lock holders"
  End If
End Sub