UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Contraseña el 11/01/18, 11:19 am

edwinjo


Buenos días les deseo un excelente año,
solicito de vuestra valiosa ayuda con el siguiente macro, como hago para que me pida una contraseña para ejecutarlo, por ejemplo "ontario", si la contraseña esta incorrecta me diga contraseña no valida
seria asi
Esta Seguro de limpiar los datos
si
ingrese contraseña
ya la contraseña ingresada y correcta me vuelva a preguntar
esta seguro de eliminar los dato
le digo si
procede
le digo no
aborta
esta es la macro
Sub Limpiar()
        confir = MsgBox("¿Está seguro de eliminar los datos?", vbOKCancel, "  DESARROLLOS EJ")
        If confir = vbOK Then
            Application.ScreenUpdating = False
            Hoja4.Select
            Range("A7").Select
            ActiveCell.ClearContents
            Range("A7:EH580").Select
            Selection.ClearContents
            Selection.Interior.ColorIndex = xlNone
            Selection.ClearComments
            Application.ScreenUpdating = True
            Range("A7").Select
            Call Despintar
            
            MsgBox ("La limpieza de datos se ha realizado satisfactoriamente"), vbInformation, "   DESARROLLOS EJ"
        Call Formula
        Else
            MsgBox ("La operación ha sido abortada, la limpieza de datos no se ha realizado"), vbExclamation, "   DESARROLLOS EJ"
            Exit Sub
        End If
        Exit Sub
End Sub
Archivos
produccion2.zip
No tienes los permisos para descargar los archivos.
(9 KB)

2RESUELTO Re: Contraseña el 11/01/18, 05:32 pm

Igtelo

avatar
Hola Edwin.

Si necesitas más preguntas y mensajes, sigue la secuencia...

Saludos
Ignacio Téllez
Archivos
Edwinjo-contraseña.xls
No tienes los permisos para descargar los archivos.
(86 KB)

3RESUELTO A la perfección el 11/01/18, 06:46 pm

edwinjo


Gracias,
Trabaja a la perfección

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.