I have the following

Sub Admin()
Dim Pass

Pass = InputBox("Please Enter Password to Log in as Admin")

If Pass = "1234" Then
Application.Run Macro:="showme"
Application.Run Macro:="Sheets_Show"
' Application.Run Macro:="Unprotect"
Else
MsgBox "Sorry Wrong Password"
Worksheets("Till").Select
Range("B10").Select
End If
End Sub

i know im prob pushing it a little, but is there a way to blank put
what i type so others cant see the password.

Thanks you


---
Message posted from http://www.ExcelForum.com/

Not with an InputBox. You'll need to define a UserForm with a Text Field.
You can then define the PasswordChar to be an "*" or whatever.

Regards

Trevor


"mushy_peas " wrote in message
...
I have the following

Sub Admin()
Dim Pass

Pass = InputBox("Please Enter Password to Log in as Admin")

If Pass = "1234" Then
Application.Run Macro:="showme"
Application.Run Macro:="Sheets_Show"
' Application.Run Macro:="Unprotect"
Else
MsgBox "Sorry Wrong Password"
Worksheets("Till").Select
Range("B10").Select
End If
End Sub

i know im prob pushing it a little, but is there a way to blank put
what i type so others cant see the password.

Thanks you


---
Message posted from http://www.ExcelForum.com/

Hi Mushy...

I have a workbook that was a download from Ozgrid, written by a guy
called Dave Hawley... it does exactly what you want...
You can change the password, username and the form to whatever
you want... if you want it I will send it over..

seeya ste

Hi Mushy...

I have a workbook that was a download from Ozgrid, written by a guy
called Dave Hawley... it does exactly what you want...
You can change the password, username and the form to whatever
you want... if you want it I will send it over..

seeya ste

thanks ste, that would be cool..


--
Message posted from http://www.ExcelForum.com

Actually i figured it out. Just used a user form. If any1 wants to know,
email me(above) or reply here.

Thanks Trev & Ste


---
Message posted from http://www.ExcelForum.com/

NO!!!!!!!

Got 1 small prob and a "would be nice"

1. small prob is that if no password is put in, then i get an error

2. i use a macro to start the useform, but can i get the cursor to go
to the textbox, and when i hit the ENTER key, it presses the OK
button.

this would be the icing on the cake, but this is so cool!


---
Message posted from http://www.ExcelForum.com/