Password Protect Forum_Unload

[M626]

I want a simple Password protectection from elimenating a app from being closed. Reguardless of what I do it still closes the app.


Private Sub Form_Unload(Cancel As Integer)
Dim EX As String

EX = InputBox("Please Enter Administator Password to Exit?", "Q&A&quot

If EX = "123" Then
Set db = Nothing
db.Close
End
Else
Call setf 'Sets focus to textbox
End If
End Sub

 

[tootired]

Setting cancel to any nonzero value prevents the form from being removed. So, your else clause becomes

Else
Call setf
Cancel = 1
End If
End Sub


Best wishes,
tootired (Jonathan Clarke)

 

[TheVampire]

And while you're at it, get rid of the end statement as well.

Private Sub Form_Unload(Cancel As Integer)
Dim EX As String

EX = InputBox("Please Enter Administator Password to Exit?", "Q&A&quot

If EX = "123" Then
Set db = Nothing
db.Close
Else
Call setf
Cancel = 1
End If

End Sub


Robert