ProtectForm

'Password Protected Form

Sub PWProtectedForm(frm As Form, pass As String)
Dim pw
pw = InputBox("Please enter password", "Password")
If pw = Cancel Then End
If pw = pass Then
frm.Show
Else
MsgBox ("Wrong!!"), vbCritical, "Wrong!!"
End
End If
End Sub