One solution is to create an on_open event to set the form's properties as follows:
Private Sub Form_Open(Cancel As Integer)
Form.AllowAdditions = False
Form.AllowEdits = False
Form.AllowDeletions = False
cmdButton.Caption = "Unlock" ' see below for info on cmdButton
End Sub
Then create a command button that has a caption of "Unlock" and run the following code on click:
Private Sub cmdButton_Click
If cmdButton.caption = "Unlock" Then
if Inputbox("Please enter the password to _ unlock", "Password Required"

= "password" Then
Form.AllowAdditions = True
Form.AllowEdits = True
Form.AllowDeletions = True
cmdButton.Caption = "Lock"
Else
Msgbox "Incorrect password entered"
End if
else
Form.AllowAdditions = False
Form.AllowEdits = False
Form.AllowDeletions = False
cmdButton.Caption = "UnLock"
End If
End Sub
See how you get on...