como poner * en InputBox

Hola, buenos dias a todos los amigos del foro.
Tengo una macro que la uso para desproteger desde un menu
OnAction ,lo que quiero es que no se vea la clave cuando
la escribo,que sea sustituido por '*'
Un saludo y muchas gracias por su ayuda

Esta es la macro:

Dim PASS As String
PASS = InputBox("Entre la clave para poder modificar", "
Mofificar", "")
If PASS = "SECRETA" Then
Worksheets("servicio").Unprotect PassWord:="SECRETA"
Else
MsgBox " Clave no es la correcta la hoja en lectura
solamente "
Worksheets("servicio").Protect PassWord:="SECRETA"
End If

Hola
el InputBox es un mecanismo de entrada muy general y no

cosas con el, por ejemplo si quisieras un imput box que

numeros, tendrias que validarlo utilizando un cilco Do...

pregunte hasta que por fin se capture un numero válido.

Lo mejor que puedes hacer es crear un UserForm, con un

la propiedad PasswordChar = "*", de esta forma obtendras

Saludos
Carlos Durán

"J.LL.R" escribió

news:4f2801c52311$ff9d1cf0$
Mostrar la cita

Hola, buenos dias a todos los amigos del foro.
Tengo una macro que la uso para desproteger desde un

Mostrar la cita

OnAction ,lo que quiero es que no se vea la clave cuando
la escribo,que sea sustituido por '*'
Un saludo y muchas gracias por su ayuda

Esta es la macro:

Dim PASS As String
PASS = InputBox("Entre la clave para poder modificar", "
Mofificar", "")
If PASS = "SECRETA" Then
Worksheets("servicio").Unprotect PassWord:="SECRETA"
Else
MsgBox " Clave no es la correcta la hoja en lectura
solamente "
Worksheets("servicio").Protect PassWord:="SECRETA"
End If

.