View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.misc
Ola2B Ola2B is offline
external usenet poster
 
Posts: 32
Default Userform password to show "xxxxxx" in the text box

On 15 Mar, 11:40, Toppers wrote:
One of the Properties of a text box is "Password Character: set this to (for
example) "*" (no quotes needed)

HTH



"Ola2B" wrote:
Can someone please help me here. When entering password or authourised
code in the text box, I would like it to show xxxxxx and not display
the password. Please see below the vb code i am working on.


Many thanks for any help.


Ola.


Option Explicit
Dim sPrompt As String
Dim vPW As Variant
Public cntr As Integer


Private Sub Cmdok_Click()
If TxtPW.Value = "55555" Then
frmAuthorisation.Hide
Call CreateTemplate
Me.lbldone.Caption = "A total of " & iWCount & " workbooks" _
& " containing a total of " & iCCount & " worksheets created."
Me.lbldone.Visible = True
frmAuthorisation.Show


Else
cntr = cntr + 1
If cntr = 2 Then


MsgBox "SORRY..YOU HAVE ENTERED AN INCORRECT
PASSWORD...GOODBYE!!!"
ThisWorkbook.Saved = True
ThisWorkbook.Close


End If
End If


End Sub


Private Sub lbldone_click()


End Sub


Private Sub Label1_Click()


End Sub


Private Sub cmdcancel_Click()
Unload frmAuthorisation
End Sub


Private Sub TxtPW_Change()


End Sub


Private Sub UserForm_Click()


End Sub- Hide quoted text -


- Show quoted text -


Thanks, but where do you insert the password character, "x" in the vb.