Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA - Close Event for Password Userform
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Userform in Before close event of workbook | Excel Programming | |||
Before Close Event Hide all Worksheets then Close Application | Excel Programming | |||
why does userform close after programming worksheet event with CreateEventProc or AddFromString | Excel Programming | |||
Close UserForm despite Exit Event | Excel Programming | |||
EXCEL close event? | Excel Programming |