change the characters entered in cell as a Password charactes

[rajendran]

Hi,

Is there any possiblity to change the text entered in a cell to be displayed as a Password field. means all characters entered would be replaced by"*".
Thanks
Raj

[Tom Ogilvy]

format=>Cells=>Number Tab, choose custom

"*";"*";"*";"*"

--
Regards,
Tom Ogilvy


"rajendran" <[email protected]> wrote
in message news:[email protected]...
>
> Hi,
>
> Is there any possiblity to change the text entered in a cell to be
> displayed as a Password field. means all characters entered would be
> replaced by"*".
> Thanks
> Raj
>
>
> --
> rajendran
> ------------------------------------------------------------------------
> rajendran's Profile:
http://www.excelforum.com/member.php...o&userid=29252
> View this thread: http://www.excelforum.com/showthread...hreadid=491419
>

[Tom Ogilvy]

Just be aware that if the cell is selected, the entry is visible in the
formula bar.

--
Regards,
Tom Ogilvy

"rajendran" <[email protected]> wrote
in message news:[email protected]...
>
> Hi,
>
> Is there any possiblity to change the text entered in a cell to be
> displayed as a Password field. means all characters entered would be
> replaced by"*".
> Thanks
> Raj
>
>
> --
> rajendran
> ------------------------------------------------------------------------
> rajendran's Profile:
http://www.excelforum.com/member.php...o&userid=29252
> View this thread: http://www.excelforum.com/showthread...hreadid=491419
>

[rajendran]

Tom,

Its displaying only one "*" for the whole word. cant we change each character to "*" and get it vb script code.

Actually i am having a username and password (for my server )to be typed in a cell. cant we make the same appearence as standard password field.

Regards
Raj

[Tom Ogilvy]

You could use the change event

Right click on the sheet tab and select view code. then put in code like
this:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler
If Target.Address = "$B$9" Then
Application.EnableEvents = False
sStr = Chr(34) & Application.Rept( _
"*", Len(Target.Value)) & Chr(34)
Target.NumberFormat = sStr & ";" & sStr & ";" & _
sStr & ";" & sStr
End If
ErrHandler:
Application.EnableEvents = True
End Sub

--
Regards,
Tom Ogilvy


"rajendran" <[email protected]> wrote
in message news:[email protected]...
>
> Tom,
>
> Its displaying only one "*" for the whole word. cant we change each
> character to "*" and get it vb script code.
>
> Actually i am having a username and password (for my server )to be
> typed in a cell. cant we make the same appearence as standard password
> field.
>
> Regards
> Raj
>
>
> --
> rajendran
> ------------------------------------------------------------------------
> rajendran's Profile:
http://www.excelforum.com/member.php...o&userid=29252
> View this thread: http://www.excelforum.com/showthread...hreadid=491419
>