Jump to content

José Lobato Castaño

Members
  • Content Count

    7
  • Joined

  • Last visited

About José Lobato Castaño

  • Rank
    Newbie

Converted

  • Campos
    ;

Recent Profile Visitors

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

  1. Estimado DiegoLG, siento la demora en darte las gracias, heestado fuera de España estos dñias. Tus instrucciones parece funcionar, al abrir tu ejemplo la fecha, Hoy(), es superior a la de caducidad y pide contraseña pero si cambio la fecha, a mano, de hoy() a una más pequeña que la de caducidad me sigue pidiendo contraseña. Además si añado una segunda macro para otra función como incrementar un contador, o cualquier otra instrucción siempre me da error de compilación. Disculpa mi ignorancia. Saludos Lobato
  2. Buenas, desde Gijón-Asturias-Spain, Disculpad si el tema ya ha sido resuelto, hay tanta información que me resulta imposible localizarlo. Es posible proteger un libro para que en una fecha determinada excel pida introducir contraseña? Saludos Lobato
  3. Hola, he comprobado que poniendo como decías los apóstrofes al evento befofesave permite guardar pero al volver a abrir el fichero me da un error de compilación, aunque me deja seguir, qué hago mal? Gracias Private Sub Workbook_Open() pregunta = MsgBox("Desea incrementar contador", vbYesNo) If pregunta = vbYes Then Range("B2").Value = Range("B2").Value + 1 End If End Sub 'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'MsgBox "Lo sentimos,no puede guardar el archivo, pero sí imprimir un pdf. o enviárnoslo para VBUENO en Archivo/compartir/correo", vbCritical, "EXCELeINFO" Cancel = True End Sub
  4. Fenomenal, Abraham, muchísimas gracias, espero poder corresponder.. Ahora funciona tal como dices, abro sin el mensaje. Borré el "ThisWorkBook.Save" y me la envié por correo para poder guardarla protegida sin aviso inicial. Ahora tengo un original y la versión protegida. Por eso no entiendo tu segunda parte, ... Ah, ojo, una vez que la borres para poder guardar el libro TE REFIERES A BORRAR EL "ThisWorkBook.Save, O LA MACRO BEFORESAVE? " comentar, ES ESCRIBIR? (con un apóstrofe al inicio) las dos líneas del evento "BeforeSave", SERÍA ESTO? ´Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ´MsgBox "Lo sentimos,no puede guardar el archivo,", vbCritical, "EXCELeINFO" Cancel = True End Sub hecho eso guardar el libro, les quitas el apóstrofe, NO ENTIENDO PARA QUÉ, PERO SOBRE TODO, LE PONGO 2 APOSTROFES, LO SALVO, Y LUEGO LE QUITO LOS APÓSTROFES, DICES? Entiendo que poniendo los apóstrofes me permite guardar con macro before incluida y luego al quitárselos se activa? Perdona la extensión y gracias por tu tiempo
  5. Hola, cuando me uní me llevó a un formulario de pago, pero ahora no veo la opción de pagar los 2€ Me ha llegado un aviso de que hoy vence y ofrece un link a pago automático, pero no funciona. Me ayudas? Gracias Lobato
  6. Caramba! No esperaba respuesta hoy, qué pasada! Bueno, avalencia, casi que no sé de qué me hablas, pero creo que no hay nada Puedes leerlo? Gracias
  7. Hola a todxs. Soy Lobato, un publicista de 58 tacos, que a base de copiar y pegar cosas que encuentro, he podido proteger mi plantilla para un cliente con Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "Lo sentimos,..etc", vbCritical, "EXCELeINFO" Cancel = True End Sub Y va bien, no permite salvar, pero aparece ya al abrir el fichero, y no mola, es muy agresivo para el cliente, a mi me gustaría que solo apareciese al tratar de salvar. Eso no sería agresivo pues el cliente está informado de la protección, lo que no deseo es hacérselo saber constantemente. Saludos desde Gijón.
×
×
  • Create New...

Important Information

Privacy Policy