How to Mask Password in MsgBox ???

Hi Everyone,

Need to mask the password in the Message Box popup... unable to find good examples...

Sub show_ribbon()

   ' Select the range of cells on the active worksheet.
Dim pw As String
pw = InputBox("Please enter password")
If pw <> "Password" Then
    MsgBox "Invalid password"
    Exit Sub
Else

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", true)"

End If
End Sub

Any Thoughts???

Best Regards,

John

Look at this link

http://www.ozgrid.com/forum/showthread.php?t=15848

Use a userform.

Use a Textbox to enter the password

Use the keypress event to store the character and replace it with an asterix.

Your Macro becomes:-

Public pw As String
Sub show_ribbon()

   ' Select the range of cells on the active worksheet.
pw = ""
UserForm1.Show
If pw <> "PASSWORD" Then
    MsgBox "Invalid password"
    Exit Sub
Else

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", true)"

End If
End Sub

The Userform Code is:-

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
pw = pw & Chr(KeyCode)
KeyCode = 0
TextBox1.Value = TextBox1.Value & "*"
End Sub

This userform code is probably better, it is case sensitive wheras the previous one assumed capitals.:-

Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
pw = pw & Chr(KeyAscii)
KeyCode = 0
TextBox1.Value = TextBox1.Value & "*"
End Sub

I would like to achieve this without using a form... I would like to use the macro above

John

Ok. How about this:

http://www.mrexcel.com/archive/VBA/19882a.html

Since you chose to ignore my contributions, I no longer feel inclined to offer you any solutions.

This is one, For Example: http://www.excelforum.com/excel-prog...getions-2.html

What goes around, comes around my friend.

Please consider a more responsive attitude, and you could avoid an "Ignore List".

Regards.

WINON,

You are JOKING right - you are referring to a post in 2007... Wow - Sorry WINON that I did not reply - I was new to the Forum then... Interesting you keep such a grudge for so long... what prompted this by the way...


John

Hi John,

I bear no grudge, and the Post I a referring to was in April 2016, and not 2007.

The Thread Topic is: Macro to change caption in Toggle button (Open/Close) code - Any Suggetions?

One of the responses was: BSB,

Thanks so much for your suggestions... The Toggle Buttons you both offered do work, however the size is just to big to fit into the sheet design...

Name: sample2.JPG Views: 4 Size: 11.2 KB

The Code I mentioned above works with the current button but the caption does not change...

John

I offered you a solution with a sample Workbook, with a request a couple of days later, asking you if it helped?

Does that ring a bell?

Regards.

No problem John,

There is nothing to put aside as things are sometimes overlooked. Thank you for not feeling offended by me for ruffling the feathers.

All is well!

Kind Regards.