show userform based on password by inputbox

[KalilMe]

Hi experts ,
I have commandbutton inside sheet is linked with userform1

I want before run userform should show inputbox and enter password "ATS-122#$%DF" if it's matched then will show userform , if it's not pops message box " error password " after three tries to try show userform , then should pops up message " sorry your tries run out " and close the excel file(( not close others files are open) .

 

[DanteAmor]

Hello @KalilMe . Thanks for posting on the forum.

Please put ALL of the following code in a module. (including the first lines).
Change UserForm1 to the name of your userform.

Option Explicit

Dim nCount As Long

Sub show_userform()
  Dim pwd As String
  Do While True
    pwd = InputBox("Enter Password", "USERFORM")
    If StrPtr(pwd) = 0 Then
      MsgBox "Click Cancel, exit now"
      Exit Sub
    ElseIf Len(pwd) = 0 Then
      MsgBox "Please enter pwd"
    Else
      If pwd = "ATS-122#$%DF" Then
        UserForm1.Show
      Else
        nCount = nCount + 1
        If nCount = 3 Then
          MsgBox "Sorry your tries run out"
          ThisWorkbook.Close
        End If
        MsgBox "Error password"
      End If
    End If
  Loop
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
--------------

 

[KalilMe]

exactly this is what I need it
many thanks buddy .