Excel: Rango en forma de password *****

[Pablus00]

Hola colegas, tengo una hoja de calculo en la cual quiero ocultar la informacion de una sola celda para que no la lean mis empleados y se me ocurrio lo siguiente:

ej: en el rango A1 tengo el dato a ocultar
en el rango A2 tengo una clave

=Si(A2="clave";A1="informacion oculta")

y lo que quisiera es colocar el password en la celda A2 pero de modo oculto como asteriscos *****, sino estaria revelando mi password al empleado que vea la hoja. Alguna idea?

[3pies]

Pues va a ser imposible, si no usas un Userform desde VBA. Solo podrás ocultar lo que escribas, para que aparezca con asteriscos, desde allí.

Salu2

[ideasking]

Sabes manejar visual basic?

[Pablus00]

Como seria 3pies?, se crear el userform, pero no conozco una funcion para ocultar lo que escribo..

[3pies]

Pasos a seguir desde VBA:

1.- Creas el Userform.

2.- Desde el cuadro de herramientas, selecciona cuadro de texto (ese que sale las letras ab|), y creas un input de texto.

3.- Seleccionando ese input de texto, a la izquierda, en la ventana propiedades, baja hasta la opción PasswordChar, e introduce un asterisco (*), ...aunque si prefieres otro caracter para ocultar el password, puedes poner cualquiera, pero siempre queda más elegante el asterisco.

Ponle un nombre a ese input de texto, seleccionando en esas mismas propiedades la opción Name (la primera de todas). Por defecto, ese input se llamará TextBox1, ...cámbiaselo si lo deseas.

4.- Ejecutas el form, e introduces un texto para ver como queda.

Para el tema de la validación, y comprobar si el password introducido es correcto, debes poner un botón de aceptar, y que al hacer clic creas un procedimiento que contenga un if parecido a este:

Código:

sub clic_en_aceptar()
'suponiendo que no le hayas cambiado el nombre al input, y que el password
'correcto sea "pepe" (sin las comillas)...
if TextBox1="pepe"
     'aquí lo que quieras hacer si el password introducido es pepe (el correcto)
else
     'aquí lo que tiene que hacer si el password no es correcto
end if
end sub

Salu2