Jump to content

Ingresar con contraseña


Max2005

Recommended Posts

Hola Amigos ...

Aquí les dejo este programa que solicita contraseña para iniciar de acuerdo a una fecha, el uso es muy sencillo para ingresar les dejo la contraseña en la hoja1, y esta fechado al 15 de septiembre de 2015 y lo único que hace es darte 2 avisos antes de borrar el archivo, se deberá de manejar precaución ya que si olvidan la contraseña se elimina el archivo ... :(

La Macro se encuentra en "ThisWorkbook"

Básicamente lo comparto para que exploren la programación, se que hay varias formas de hacer proteger datos pero esta se me hizo muy interesante y sobre todo espero les sea de utilidad.

Saludos

Max2005

Contraseña de Ingreso.zip

Link to post
Share on other sites

Hola [uSER=205875]@Max2005[/uSER], cuando se cumple la 2da y 3ra condición.


'fecAviso = DateSerial(2015, 9, 19) ' De la fecha 19 hacia adelante no reconoce ninguna condición (If Then)
'fecAviso = DateSerial(2015, 9, 16) ' De la fecha 18 hacia atrás reconoce esta condición (If Date >= fecAviso Then Exit Sub)

fecBorra = fecAviso + 2
fecLimit = fecAviso + 1

If Date >= fecAviso Then Exit Sub
If Date = fecLimit Then GoTo avsUno '
If Date = fecBorra Then GoTo avsDos '
[/CODE]

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

a


  • Crear macros Excel

  • Posts

    • Hola de nuevo Diego; - Te comento algo más,  el archivo de origen es de un programa  llamado as400 y no tengo acceso al archivo.  Por eso no te puedo dar más datos. Sigo insistiendo  que creo que la serie la concatena con el número  de factura.  Si te fijas en la hoja donde he insertado los datos en el encabezado no sale.  Si añada una columna  en la macro e inserto lineas sin serie  como una columna. Siento  no disponer del archivo  para poder ayudarte.  Gracias  de todas formas.  
    • Esa columna de serie, se mantiene en la misma columna? Por que no subes un archivo donde tenga esa columna y pega de forma manual como necesitas la información en la hoja W. Y si te puedo ayudar, con gusto vale;   y si no, pues habrá alguien mas. Saludos amigo.
    • Hola Diego,  eso si es verdad a medias ya que en la tabla de origen no muestra ese encabezado la serie seguramente la concatena cuando la hay. Es un poco coñazo también  para mí, por eso decía lo de pegar primero y después  concatenar para copiar  los datos igual a la tabla de origen. Sería posible hacerlo o debo descartar(?). Muchas gracias por su respuesta  👍 
    • Revisando tu archivo, y haciendo comparación de las dos hojas, trae los mismos encabezados, no veo en que columna se encuentra lo que comentas (SERIE) ¿?. Pero te propongo algo, y si creas una hoja temporal, eliminas la columna que no te sirve y posteriormente pasar a la hoja W. Saludos cordiales, Diego.
    • Buenas tardes o días a todos; -Hoy traigo un nuevo reto que me gustaría que me ayudasen a resolver si es posible. Se trata de los siguiente: -Tengo un programa de trabajo del cual copio de una tabla de consulta unos valores y después los pego en otra. Hasta ahí todo bien, siempre y cuando en la tabla de origen todas la columnas tengan datos.  El problema viene cuando hay una columna que tiene datos en unas filas y en otras no, entonces al hacer el pegado me aumenta una columna. Dejo un video para mejor comprensión del tema. Video: Copiar y pegar datos de origen Buen finde a todos CExcel.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy