VBA Coding For Login Form लॉगिन फॉर्म के लिए VBA कोडिंग

VBA Coding For Login Form

Need 
TextBox Name = txtUserName
TextBox Name = txtPassword

Button Name = cmdSubmit
Button Name = cmdClear
Button Name = cmdExit

& One Excel Sheet which have User ID & Password
-----------------------------------------------------------------------

Private Sub cmdClear_Click()

txtUserName.Value = ""
txtPassword.Value = ""

End Sub
--------------------------------------------------------------------------

Private Sub cmdExit_Click()

ActiveWorkbook.Close savechanges = True

End

End Sub
----------------------------------------------------------------------------

Private Sub cmdSubmit_Click()

Worksheets("User").Range("A1").Value = txtUserName.Value
Worksheets("User").Range("A2").Value = txtPassword.Value

If (Worksheets("User").Range("C1").Value = True) And Worksheets("User").Range("C2").Value = True Then

    MsgBox ("Login Successful")

Application.Visible = True

Worksheets("PT").Activate

End

Else
    MsgBox "Invalid Login Please Type Correct Password"

End If

End Sub
-------------------------------------------------------------------------

Sub Workbook_Open()

Application.Visible = False
LoginUserForm.Show

End Sub