Hide or ***** what is being typed in an input box

lenze

Legend

Joined

Feb 18, 2002

Messages

13,690

• Mar 27, 2006

• #2

Hi Michael

See this thread
http://www.mrexcel.com/board2/viewtopic.php?t=202702&highlight=password+inputbox+hide

lenze

 

Upvote 0

S

Seti

Well-known Member

Joined

May 19, 2002

Messages

2,916

• Mar 27, 2006

• #3

Check this thread out.

http://www.mrexcel.com/board2/viewtopic.php?t=108719

 

Upvote 0

DominicB

Well-known Member

Joined

Oct 3, 2005

Messages

1,569

• Mar 27, 2006

• #4

Good afternoon daniels012

Try this solution by Daniel Klann

http://www.danielklann.com/excel/hiding_text_in_a_vba_inputbox.htm

HTH

DominicB

 

Upvote 0

daniels012

Well-known Member

Joined

Jan 13, 2005

Messages

5,219

• Mar 27, 2006

• #5

The code it has listed goes into a standard module. I have my code to open a password when a button is pressed. Do I need the code there with the button instead of a standard module?

 

Upvote 0

lenze

Legend

Joined

Feb 18, 2002

Messages

13,690

• Mar 27, 2006

• #6

You can place the code in your button module or use a standard module and call it with your button code. I haven't looked closely at the code, so you may need to modify it some. I don't know.

lenze

 

Upvote 0

daniels012

Well-known Member

Joined

Jan 13, 2005

Messages

5,219

• Mar 27, 2006

• #7

lenze and DominicB,
I used the one you suggested. It is Daniel Klann's code. It gives me a compile error when I try to add it to this code:
the areas in red below!
Private Sub CommandButton1_Click()

pwd = "ss12pass"

If InputBoxDK("Enter Password", "Password") <> pwd Then
MsgBox ("Incorrect Password!")
Exit Sub
Else

ActiveSheet.Unprotect

ActiveCell.Value = InputBox("Enter Time")
Selection.Locked = True
ActiveSheet.Protect

End If

End Sub

 

Upvote 0

fridgenep

Board Regular

Joined

Mar 26, 2006

Messages

73

• Mar 27, 2006

• #8

Hello,

Which Excel version do you use?

Place the code in a standard module

Can you please try this one:

Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim pwd As String
pwd = "test"
 If InputBoxDK("Enter Password", "Password") <> pwd Then
    MsgBox ("Incorrect Password!")
    Exit Sub
 Else
    ActiveSheet.Unprotect pwd
     With ActiveCell
        .Value = InputBox("Enter Time")
        .Locked = True
     End With
    ActiveSheet.Protect Password:=pwd
 End If
End Sub

With Excel 2003 it runs.

 

Upvote 0

lenze

Legend

Joined

Feb 18, 2002

Messages

13,690

• Mar 27, 2006

• #9

Modified your code slightly and it seems to work.

Code:

Private Sub CommandButton1_Click()
     pwd = "ss12pass"
     Rspn = InputBoxDK("Enter Password", "Password")
     If Rspn <> pwd ThenMsgBox ("Incorrect Password!")
     Else
     ActiveSheet.Unprotect pwd
     ActiveCell.Value = InputBox("Enter Time")
     Selection.Locked = True
     ActiveSheet.Protect pwd
     End If
End Sub

Seems to work.

lenze

 

Upvote 0

daniels012

Well-known Member

Joined

Jan 13, 2005

Messages

5,219

• Mar 27, 2006

• #10

Tried it... Still get a compile error. It's not recognizing the InputBoxDK name.

Maybe because I am using Excel 2000??

 

Upvote 0