Excel - password

 
Vista:

password

Publicado por sargvid (83 intervenciones) el 30/08/2006 08:07:56
Como puedo hacer para que a la hora de que meta la contraseña en un INPUTBOX en vez de los caracteres me salgan los correspondientes *******

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:password

Publicado por José Luis (700 intervenciones) el 30/08/2006 09:36:32
Debido a que no hay espacio para colocar todo el código te recomiendo que vayas a este link y lo copies desde allí. (hay varios ejemplos de otras funciones)

http://pio9.com/22visualbasic14.htm

busca en la página el texto "Para enmascarar la clave con asteriscos" y lo verás, la función (que se crea con el codigo) se llama InputBoxDK.
Donde se indica "En ThisWorkBook" es un ejemplo para pedir la clave al abrir el archivo. Sí debes poner todo el código que se indica para "En Módulo1".

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:password

Publicado por CARLOS ALFONSO PEREZ BEDOYA (1 intervención) el 05/09/2006 19:52:05
COMO HAGO EN UN ARCHIVO BATCH Para enmascarar la clave con asteriscos

LE ANEXO ESTE QUE TENGO. AGRADEZCO SU AYUDA.

@echo off
rem Programa: uno.bat

REM AUTOR CARLOS ALFONSO PEREZ BEDOYA
REM ING. DE SISTEMAS

:inicio

cls
echo **************************
echo * Sistema *
echo **************************
echo.
echo.
echo.
echo ! BIENVENIDO AL SISTEMA DE INFORMACION !
echo.
echo.
echo Elija una de las Siguientes Opciones :
echo.
echo.
echo * Si Digita 1 Es Modulo Real de Sistema
echo.
echo.
echo * Si Digita la letra S Es Salir
echo.
echo.

SET /P OPCION= DIGITE SU OPCION :

if %OPCION%==1 goto opcion1

IF %OPCION%==S goto Salir
IF %OPCION%==s goto Salir

ECHO.
echo la opcion %OPCION% no es valida !!
ECHO.
pause
goto inicio

:opcion1

C:\"Documents and Settings\Administrador.SERVIDOR\Escritorio\ACCESO REAL.lnk"

goto Salir

CLS

echo.
echo.
echo * Digite la Clave Asignada por Sistemas de Acceso a Programacion de Turnos
echo.
echo.

SET /P PWD= Contrase¤a :


if %PWD% == hola goto passwd

ECHO.
echo La Clave Digitada NO es Valida !!
rem echo La Clave %PWD% no es Valida !!
ECHO.
pause
goto inicio

:passwd

echo.
echo Clave Exitosa

F:\"GLIDER\SIGS.adp"

goto Salir

:Salir
echo.

EXIT
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar