Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Max2005

  1. Hola [uSER=163374]@Diego9019[/uSER] Es cierto, tiene sus debilidades pero algo se podrá hacer ... Saludos !!!
  2. Hola a Todos He puesto el Archivo en Ideas y Aportes para que revisen su funcionamiento Saludos !!!
  3. 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
  4. Hola a Todos [uSER=187503]@juan[/uSER] Reyes Martínez Ya eres todo un Capo en el Foro ya es tiempo de que nos demuestres que tanto has aprendido +++++ 10 10 10 ¿o No? Saludos !!!
  5. Hola canasta: Te anexo otra alternativa (solo reduje los márgenes de tu hoja) Saludos !!! falta salto paginas.zip
  6. [uSER=53155]@JoaoM[/uSER] Si introduces la contraseña, te deja entrar al archivo, si ves en la macro tienes 3 posibilidades para ingresarla ... Saludos !!!
  7. Formato Año(2015), Mes(09), Día(17) Saludos !!!
  8. Si, Elimina el libro completo lo borra, del origen donde se abrió, si lo tenias en C:, una unidad de USB o en RED lo elimina Saludos !!!
  9. [uSER=160992]@Manuel Franco[/uSER] Digo que esta como texto porque al principio lleva una comilla simple lo que en el editor de Visual es una texto Saludos !!!
  10. Si , solo si la fecha de caducidad llega de acuerdo a fecAviso y no sabes la contraseña por ello puse como texto ' Kill Me.FullName Saludos !!!
  11. Hola hector Arce, Esta puede ser otra alternativa Option Explicit Public fecAviso As Date Public fecBorra As Date Public fecLimit As Date Public avsUno, avsDos As String Public verErr As String Public licUso, licUs2, licUs3 As String Public Fin As String Private Sub Workbook_Open() fecAviso = DateSerial(2013, 4, 1) fecBorra = fecAviso + 2 fecLimit = fecAviso + 1 If Date <= fecAviso Then Exit Sub If Date = fecLimit Then GoTo avsUno If Date = fecBorra Then GoTo avsDos Application.EnableCancelKey = xlErrorHandler On Error GoTo verErr licUso = InputBox("INTRODUZCA LA LICENCIA DE USO, EL TIEMPO DE VIGENCIA SE HA CADUCADO", "LICIENCIA USO") If licUso <> "ABCD" Then MsgBox "Error de Contraseña, Intente de Nuevo" licUs2 = InputBox("INTRODUZCA LA LICENCIA DE USO, EL TIEMPO DE VIGENCIA SE HA CADUCADO", "LICIENCIA USO") If licUs2 <> "ABCD" Then MsgBox "Error de Contraseña, Intente de Nuevo" licUs3 = InputBox("INTRODUZCA LA LICENCIA DE USO, EL TIEMPO DE VIGENCIA SE HA CADUCADO", "LICIENCIA USO") If licUs3 <> "ABCD" Then MsgBox "Error de Contraseña, El Archivo se Borrara" Application.DisplayAlerts = False Me.ChangeFileAccess xlReadOnly Kill Me.FullName Me.Close False End If End If End If GoTo Fin 'Gestion del primer aviso avsUno: Application.EnableCancelKey = xlErrorHandler On Error Resume Next MsgBox "Error de Contraseña ERROR GRAVE !!! El Archivo se Borrara", vbInformation Application.DisplayAlerts = False Me.ChangeFileAccess xlReadOnly ' Kill Me.FullName Me.Close False MsgBox "EL ARCHIVO SE BORRARA", vbCritical 'Gestion del segundo aviso avsDos: Application.EnableCancelKey = xlErrorHandler On Error Resume Next MsgBox "Error de Contraseña ERROR GRAVE", vbCritical Application.DisplayAlerts = False Me.ChangeFileAccess xlReadOnly ' Kill Me.FullName Me.Close False MsgBox "EL ARCHIVO SE BORRARA", vbCritical 'Gestion por Error verErr: ActiveWorkbook.Close Fin: End Sub [/CODE] Puse como texto lo de eliminar archivo para que no te vaya a borrar tu archivo, en fecAviso va la fecha que quieres como caducidad Mucha Suerte Saludos !!!
  12. Hola canasta, Revisa el adjunto y di si es lo que necesitas Mucha Suerte Saludos !!! falta salto paginas.zip
  13. Hola hector Arce Bienvenido, debes de leer las normas del foro y compártenos tu macro, para poder ayudarte Saludos !!!
  14. josedd Revisa el adjunto, en la macro de filtrar por fechas y transferir que ya tenias, comentas si es lo que buscabas ... Mucha Suerte Saludos !!! MOLECHE_1_Max.zip
  15. Hola josedd, Tu archivo esta protegido y ¿Qué es lo que quieres filtrar? ... No esta especificado en tu solicitud Saludos !!!
  16. Hola Juan Reyes Martínez, Revisa el adjunto y comenta si es lo que necesitas Mucha Suerte Saludos !!! Macro filtrar cod. especifico_Max.xls
  17. Hola SALVERRINO, Revisa el adjunto y comentas si es lo que necesitas ... tu archivo "part2", no se puede abrir, solo esta corregido el "part1" Mucha Suerte Saludos !!! PLANTILLA ELECTRONICAS_Max.zip
  18. Hola SALVERRINO, Existe un problema con tus archivos no se pueden descargar ... Saludos !!!
  19. Hola Sonky87, ([uSER=163374]@Diego9019[/uSER] ) Te anexo otra propuesta, tu archivo esta delimitado por espacios así que la hoja "Extraer", es la que te servirá. Mucha Suerte Saludos !!! Libro2_Max.zip
  20. Hola a Todos [uSER=143023]@Riddle[/uSER] Esta Genial !!! muy bueno, yo pienso que es lo que necesitaba Visor Saludos !!!
  21. Hola rollstone8, Elabore una Macro que te indica 1 si esta subrayada y cero si no lo esta, espero sea lo que buscabas, trate de hacerlo con formulas pero creo no es posible Mucha Suerte Saludos !!! ejemplo ayudaexcel_Max.zip
  22. Hola EDGAR S. H., A mi no me aparece la ventana , pero hice una modificación, pruébalo y comentas ... Saludos !!! ejercicio_Max2.xls
  23. Hola EDGAR S. H., Te anexo una propuesta, puedes revisarla y darnos tus comentarios, espero sea lo que necesitas Mucha Suerte Saludos !!! ejercicio_Max1.xls
  24. Hola Visor, Te anexo solución, espero sea lo que necesitas Saludos !!! Concat Texto y fecha larga_Max.zip
  25. Hola EDGAR S.H. Lo que pasa es que tienes el evento Private Sub Worksheet_SelectionChange(ByVal Target As Range), creo que por esta razón te hace el cambio hasta que seleccionas lo que cambiaste así también esto era lo que solicitabas en tu publicación anterior, quieres que funcionen 2 aplicaciones distintas con el evento Private Sub Worksheet_Change(ByVal Target As Range), yo creo que si es posible pero al menos me tomaría algo de tiempo poder ayudarte. Espero Te sea útil mi comentario Saludos !!!
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png