PDA

View Full Version : Solved: Password Message Box



khalid79m
01-08-2009, 03:25 AM
Private Sub Workbook_Open()

x = InputBox("Please enter password", "Password needed!")
If x <> "Password" Then ActiveWorkbook.Close False

End Sub


I have a worksheet that has a form Button, once this button is clicked I want a pop up box to appear ..(this bit I can do )

the message box needs to be an input password box , with the charachters starred out

Can this be done ? Are there any tutorials on complex message boxes

Bob Phillips
01-08-2009, 03:31 AM
No, you need to juse a custome form with a textbox that allows a passwordchar property.

khalid79m
02-05-2009, 08:36 AM
This works a treat