Question

and thanks in advance for helping. I am creating a log in screen for some workbooks Upon thisworkbook being open I have “userform1.show” and in the userform i have hardcoded a username and password. when the userform1 pops up asking for username and password I am able to click the X and it just closes the form and the user can still use the workbook. How do I have that X close the entire workbook. I don’t know what that X is called in VB. I have tried “application.enablecancelkey” with all 3 options but none work.

A) is that the right way to go about it?
B) if it is where do I put that?

Answer 1

You could write

Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        ThisWorkbook.Close
    End If
End If

Alternatively you could also prevent the Login Form being closed by the “X“

Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        cancel = 1
        MsgBox "Please use cancel if you want to leave the Login Box.", _
            vbOKOnly + vbInformation, "Please confirm ..."
    End If
End Sub

That’s how we do it with our logins…