Caracteres no se vean en Clave acceso

Hola amigos como debo de modificar la siguiente macro para que a la hora de escribir los caracteres de la clave solo se vean asteriscos y no me vean como escribo la clave:

Sub PROTECCIÓN()
CLAVE_cuentas = InputBox("ESCRIBA SU CLAVE DE ACCESO")
If CLAVE_cuentas = "obra" Then

obras
Sheets("lugar").Select
Range("j28").Select
Else
MsgBox ("CLAVE INCORRECTA! - NO TIENES ACCESO")
Sheets("indice").Select
End If
End Sub

gracias,.

1 Respuesta

Respuesta
1

Te mando mi idea:

Sería construir un pequeño userform con un textbox y en su característica passwordchart pondría un asterisco (de esta forma cuando el usuario teclea la clave solo se ven asteriscos). Después mediante un botón de comando evaluaría si la clave es correcta o no, usando una macro parecida a la tuya.

Pero sobre esto que tengo ya no se podría hacer?

gracias.-

Es que yo lo que me indicas no lo se hacer Luis.

saludos

Si quieres te mando un ejemplo construido. Dime tu mail y te lo mando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas