Examples: IsDesignLockingEnabled property (NotesDatabase - LotusScript)

1. This agent displays whether design locking is enabled for the current database.

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If db.IsDesignLockingEnabled Then
Messagebox "Design locking is enabled",, "Enabled"
Else
Messagebox "Design locking is disabled",, "Disabled"
End If
End Sub

2. This view agent toggles design locking for the current database.

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If db.IsDesignLockingEnabled Then
db.IsDesignLockingEnabled = False
Messagebox "Design locking is disabled",, "Disabled"
Else
db.IsDesignLockingEnabled = True
Messagebox "Design locking is enabled",, "Enabled"
End If
End Sub