como poner * en InputBox

07/03/2005 - 13:34 por J.LL.R | Informe spam

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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Carlos Durán Urenda

07/03/2005 - 15:29 | Informe spam

Hola
el InputBox es un mecanismo de entrada muy general y no podras hacer muchas
cosas con el, por ejemplo si quisieras un imput box que solo admitiera
numeros, tendrias que validarlo utilizando un cilco Do... Loop de forma que
pregunte hasta que por fin se capture un numero válido.

Lo mejor que puedes hacer es crear un UserForm, con un TextBox y le asignes
la propiedad PasswordChar = "*", de esta forma obtendras lo que deseas

Saludos
Carlos Durán

"J.LL.R" escribió en el mensaje
news:4f2801c52311$ff9d1cf0$

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

Responder a este mensaje

#2 J.LL.R

07/03/2005 - 18:46 | Informe spam

Hola Carlos,gracias por contestar,probe con lo que me
dices de crear un formulario y no logro que me funcione.
Si me pudieras poner un codigo de ejemplo, que si no es
la clave me proteja la hoja y si es el correcto que la
desproteja ,pues no lo logro hacer.
Un saludo

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

podras hacer muchas

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

solo admitiera

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

Loop de forma que

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

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

TextBox y le asignes

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

lo que deseas

Saludos
Carlos Durán

"J.LL.R" escribió

en el mensaje

news:4f2801c52311$ff9d1cf0$

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

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

.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida