Is there a way to program a close event for a password userform, so that if
the user tries to close the form before entering a password, it generates an
error message and reloads the form?

Would this also prevent a user from simply clicking on the X in the top-right
corner of the userform, which simply ends the subroutine?

I can't seem to add a control to that X to prevent this from happening.

Thanks

"Peter T" wrote:

Here's one way to do it but I strongly suggest you don't use this!
What happens if poor user has forgotten the password...

''' add TextBox1 to the form and type "abc" into it

Private mbPWOK As Boolean
Private Const mcPW As String = "abc"

Private Sub TextBox1_AfterUpdate()
ValidatePW
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If mbPWOK = False Then ValidatePW
If mbPWOK = False Then
Cancel = True
MsgBox "won't close with invalid password"
End If
End Sub

Function ValidatePW() As Boolean

mbPWOK = LCase(TextBox1.Text) = LCase(mcPW)
ValidatePW = mbPWOK

End Function





"Marcolino" wrote in message
...
Is there a way to program a close event for a password userform, so that
if
the user tries to close the form before entering a password, it generates
an
error message and reloads the form?

Yes, all you had to do was simply try it

Regards,
Peter T

"Marcolino" wrote in message
...
Would this also prevent a user from simply clicking on the X in the
top-right
corner of the userform, which simply ends the subroutine?

I can't seem to add a control to that X to prevent this from happening.

Thanks

"Peter T" wrote:

Here's one way to do it but I strongly suggest you don't use this!
What happens if poor user has forgotten the password...

''' add TextBox1 to the form and type "abc" into it

Private mbPWOK As Boolean
Private Const mcPW As String = "abc"

Private Sub TextBox1_AfterUpdate()
ValidatePW
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If mbPWOK = False Then ValidatePW
If mbPWOK = False Then
Cancel = True
MsgBox "won't close with invalid password"
End If
End Sub

Function ValidatePW() As Boolean

mbPWOK = LCase(TextBox1.Text) = LCase(mcPW)
ValidatePW = mbPWOK

End Function





"Marcolino" wrote in message
...
Is there a way to program a close event for a password userform, so
that
if
the user tries to close the form before entering a password, it
generates
an
error message and reloads the form?

Ok, I'll try it, thanks.


"Peter T" wrote:

Yes, all you had to do was simply try it

Regards,
Peter T

"Marcolino" wrote in message
...
Would this also prevent a user from simply clicking on the X in the
top-right
corner of the userform, which simply ends the subroutine?

I can't seem to add a control to that X to prevent this from happening.

Thanks

"Peter T" wrote:

Here's one way to do it but I strongly suggest you don't use this!
What happens if poor user has forgotten the password...

''' add TextBox1 to the form and type "abc" into it

Private mbPWOK As Boolean
Private Const mcPW As String = "abc"

Private Sub TextBox1_AfterUpdate()
ValidatePW
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If mbPWOK = False Then ValidatePW
If mbPWOK = False Then
Cancel = True
MsgBox "won't close with invalid password"
End If
End Sub

Function ValidatePW() As Boolean

mbPWOK = LCase(TextBox1.Text) = LCase(mcPW)
ValidatePW = mbPWOK

End Function





"Marcolino" wrote in message
...
Is there a way to program a close event for a password userform, so
that
if
the user tries to close the form before entering a password, it
generates
an
error message and reloads the form?