Password Issue

I have the following code:

Private Sub cmdSubmit_Click()

    If Me.txtPassword.Value = "" Then
    Me.Hide
        retry = MsgBox("You must enter a password first.  Would you like to try again?", vbYesNo, "Retry?")
        Select Case retry
            Case vbYes
                Me.txtPassword = ""
                Me.txtPassword.SetFocus
                Me.Show
            Case vbNo
                Unload Me
        End Select
        End If
        
        
   If Me.txtPassword.Value = "regional" Then
        Unload Me
        Sheets("DATABASE").Visible = True
        Sheets("DATABASE").Select
    Else
        Me.Hide
        retry = MsgBox("The password is incorrect.  Would you like to try again?", vbYesNo, "Retry?")
        Select Case retry
            Case vbYes
                Me.txtPassword = ""
                Me.txtPassword.SetFocus
                Me.Show
            Case vbNo
                Unload Me
        End Select
    End If


Dim lastrow As Long

With Sheets("DATABASE")
  lastrow = .Range("A2").End(xlDown).Row
  .Cells(lastrow + 1, 1).Value = txtLastName.Text & ", " & txtFirstName.Text
  .Cells(lastrow + 1, 2).Value = txtCCN.Text
  .Cells(lastrow + 1, 3).Value = txtDateofhire.Text
  .Cells(lastrow, 4).Resize(1, 6).Copy .Cells(lastrow + 1, 4)
End With
Application.CutCopyMode = False

txtFirstName = ""
txtLastName = ""
txtCCN = ""
txtDateofhire = ""


End Sub

which is to require a password prior to submitting the form. It works except if the User selects NO during the first section of code (where it says you must enter a password). I am getting an Automation error that says the Calle(Server is not available. Any ideas?

Hi,

It's a bit difficult without seeing your workbook, but please try changing "Me" to the name of the userform. This probably isn't likely to solve your issue, but worth a try.

If this fails, can you please upload your workbook.

Thanks

What about changing the top portion of the code and not giving a NO option. Just a box stating You Must Enter a Password First with OK only.

If so, how would I do that? I copied this code from somewhere else, and I don't want to remove too much.

The Me.Hide part was working fine when I used a password in another place. I cannot attach the workbook as it has a few hundred employee names

It's hard to say without seeing the workbook. Is there any way you could desensitise the workbook, or maybe just send a small sample?

It should work with a Yes and a No option

Isn't that already there?