not working, or I dont know how to set the command. pls correct me.

Sub closescreentarget()
Application.InputBox.passwordchar = "*"
myPWD = Application.InputBox("Password Protected! Please Enter Authorized
Password to Continue!")
If myPWD = "ems97188" Then
Dim wbk As Workbook
Workbooks.Open ActiveWorkbook.Path & "\setup.xls"
Else
MsgBox "Wrong Password! Bye!"
End If
End Sub


"Mikeopolo" wrote:


Haven't tested this, suggest use the passwordchar property before
displaying the inputbox, eg

Application.inputbox.passwordchar="*"

Regards
Mike


--
Mikeopolo
------------------------------------------------------------------------
Mikeopolo's Profile: http://www.excelforum.com/member.php...o&userid=18570
View this thread: http://www.excelforum.com/showthread...hreadid=532504