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.

Hola, ¿qué hay en el evento "Open" del libro? Sospecho que no solo estás usando el evento "BeforeSave".

Abraham Valencia

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

¿Ves esa línea que dice "ThisWorkBook.Save"?  Pues Bórrala ya que lo que hace es intentar guardar el libro apenas se abre y se activa el evento "BeforeSave" y por eso el constante mensaje al abrir el archivo. Ah, ojo, una vez que la borres  para poder guardar el libro no olvides comentar (con un apóstrofe al inicio) las dos líneas del evento "BeforeSave", hecho eso guardar el libro, les quitas el apóstrofe y listo, ya puedes entregar otra vez el archivo a tu cliente sin el dichoso mensaje al abrir.

Abraham Valencia

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

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

 

Veo un Cancel "libre" y un "End Sub" innecesario

Abraham Valencia