El libro que no se pueda guardar.-

Hola:

Y disculpar de nuevo mi intromisión, pero a mi última consulta (leer más
abajo) y despues de lo que podía parecer una triunfal solución, por parte del
Amigo Willi (que dió por completo en el clavo):
EN MODULO:
Option Explicit
Sub Guardar_Cambios()
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
End Sub
EN THISWORKBOOK:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox Prompt:="Este libro no se puede guardar", Title:="Función
deshabilitada"
End Sub
Soy tan torpe que no logro "guardar" yo el proyecto de VBA, en cuanto meto
las 2 sentencias en el ThisWorkBook, se acabo... parece como si lo
mantuviera. Pero al día siguiente cuando lo abres, ya no están estas
sentencias, que nunca se llegaron a guardar.
¿Podría alguien, por favor, indicarme como puedo guardar estos cambios o
alguna otra solución alternativa?

Os estaría, como siempre, muy y sinceramente agradecido.

Muchas Gracias y recibid todos un afectuoso saludo desde Madrid.

J

"Willi@m" wrote:

Hola JC, mira a ver si es algo como esto:
http://rapidshare.com/files/8990789...uardar.xls
Me comentas cualquier inquietud. Chao,
Willi@m



"JC" <JC@discussions.microsoft.com> escribió en el mensaje de noticias:96CDA6C7-28A7-4DFC-9296-F8F186396E9B@microsoft.com...
Hola Amigos:

Para terminar con buen fín una herramientita en excel, necesitaría poder
introducir un condicionante general al libro entero, para que cuando el
usuario lo cierre ni pregunte si se quiere guardar cambios, ni los guarde.

Me imagino que será metiendo alguna sentencia en ThisWorkbook, como:

Close SAVECHANGES:=False

O algo así... no ???

Esperando que me podais ayudar una vez más, os envio un sincero y agradecido
saludo