Jump to content

Manuel Franco

Members
  • Content Count

    103
  • Joined

  • Last visited

1 Follower

About Manuel Franco

  • Rank
    Advanced Member
  • Birthday 04/08/1991

Converted

  • Campos
    ,

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Genial. Muchas gracias, si funcionó. Tema solucionado.
  2. Buenas tardes. Me gustaría pedir su ayuda para este asunto, el caso es que quiero obligar al usuario a utilizar el botón de cerrar dentro de la user form y no la "X" de la misma... Pero no se como deshabilitar la "X" de la user form. Me podrían ayudar.
  3. Excelente mi gran [uSER=9328]@Gerson Pineda[/uSER] me funciona de maravilla... saludos desde México. Tema solucionado...
  4. Solo para cerrar mi gran!!! perdona las molestias... a este tema ya no contesto [uSER=161572]@viktorcamus[/uSER] ... desde el 2013... Saludos.
  5. Muy buenos dias amigos. Me podrían ayudar con el código para la inserción de datos de una tabla de excel a un listbox... Saludos... New WinRAR ZIP archive.zip
  6. [uSER=1101]@Fleming[/uSER] Jajajajjajaj revisando mis mensajes antiguos me encontré con este mi gran... El bato ya no respondió, pero le solucione el problema... Comenta. P.D. Aunque no le veo el caso a tema tan antiguo.
  7. [uSER=1101]@Fleming[/uSER] , creo que hay un problema con este post... Me aparece como que ya esta solucionado, pero como puedes ver, todavía puedo escribir en el... saludos!
  8. Lol, vi el post y entre para felicitarte, la verdad no me di cuenta del año en el que fue publicado, pero bueno, mas vale tarde que nunca... También aplica para los próximos. MsgBox "Feliz cumpleaños mi gran camarada <<Macro Antonio>>", vbInformation, "Felicidades" [/CODE]
  9. Solo escribes como respuesta <<Tema solucionado>> ya el moderador se encarga de cerrarlo...
  10. [uSER=113612]@niangari[/uSER] No se te olvide siempre cerrar los temas en los que ya te dieron solución., vasta con escribir: "Tema solucionado...!!!" en un comentario para que algún moderador lo cierre... Saludos!...
  11. Si, si, eso si lo se, pero yo, al tratar de entender el código que pusiste, note que había una parte en el código que traía el "Kill me.Fullname", pero sin la comilla simple que lo denota como texto... por eso la intriga de el que es lo que hace esa parte del código... ¿Borra el archivo?, ¿No lo borra?... Perdón por tantas preguntas... Saludos!...
  12. El " Kill Me.FullName" aparece mas arriba en el código, pero no como nota... ¿Que es lo que hace? 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 'En esta parte que es lo que hace!? Me.Close False End If End If End If GoTo Fin[/CODE] Es que lo vi mas arriba en el código.... Saludos!!!
  13. Ahhhhhhhhhhh, asi que si hay una forma de hacerlo... Wow, cada día me sorprendo mas... Pregunta: ¿Literalmente te borra el archivo?... Saludos!...
  14. Excelente mi gran [uSER=46507]@Macro Antonio[/uSER] , muchas gracias por tu ayuda... Saludos... Tema Solucionado...
  15. Ya, gracias, excelente... Y por ejemplo, si quiero escribir la fecha en una celda de la columna F, y que la fecha con los 60 días extra aparezca en el G... ¿Como cambiaría el código? De antemano muchas gracias [uSER=46507]@Macro Antonio[/uSER] ...
×
×
  • Create New...

Important Information

Privacy Policy