Hi,

because you don't give too much detail it's hard to be precise but this may
get you going in the right direction.

Private Sub CommandButton1_Click()
response = InputBox("Enter password")
If response < Environ("Username") Then
MsgBox "Incorrect, You must enter you logon username"
Else
MsgBox "Password accepted"

End If
End Sub

Mike

"Premanand Sethuraman" wrote:

Dear All,
I 've made a program in which if the user click a button a userform will
form and it will ask for a Password.
Person should write Password in the textbox in Userform.
I want to accept the password of the Computer name (Log in name).
Will anyone help me how to sort out.

Thanks
Prem.