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/

having an empty textbox, in and of itself does not raise an error - so the
error must be in your code. You need to check for this condition and react
accordingly.

Set the tabindex property of the textbox to 0

for the OK button, set the "default" property to True


--
Regards,
Tom Ogilvy

mushy_peas wrote in message
...
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/

hey Tom
i have this
Dim Password As String
With EnterPass
.TextBox1.Text = ""
.Show
If .Tag = vbOK Then
Password = .TextBox1.Text
Else
Worksheets("Till").Select
Range("B10").Select
End If


Im im not sure what goes after the Else to close the the box, which i
what i think is casung the error

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

Dim Password As String
With EnterPass
TextBox1.Text = ""
.Show
End With
If EnterPass.Tag = vbOK Then
Password = EnterPass.TextBox1.Text
Else
Worksheets("Till").Select
Range("B10").Select
End If
unload EnterPass

You should have code to hide EnterPass in the code module of the userform.

Private Sub OK_Click()
me.hide
End Sub

--
Regards,
Tom Ogilvy


mushy_peas wrote in message
...
hey Tom
i have this
Dim Password As String
With EnterPass
TextBox1.Text = ""
Show
If .Tag = vbOK Then
Password = .TextBox1.Text
Else
Worksheets("Till").Select
Range("B10").Select
End If


Im im not sure what goes after the Else to close the the box, which is
what i think is casung the error.


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

Tom,
i copied ur code, but i still cant get it to work properly.

If i put a password, its fine even if its wrong. but if i leave th
textbox empty and press OK, or the close X in the top right, it give
me

Run-time error "13":
Type mismatc

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