eliminar mediante macro el mensaje guardar

Esto me surge el siguiente problema
Funciona tan bien que ni siquiera guarda las instrucciones. Me explico
Sale solo una vez sin guardar ni sacar el mensaje, la siguiente vez al no
haber guardado el documento los codigos escritos desaparecen y al salir me
vuelve a pedir guardar otra vez.

Como puedo hacer para que guarde estos codigos pero no guarde el documento o
algo parecido?? Que complicado se hace todo.

"KL" wrote:

Hola Juanjo,

Si lo que quieres es que al cerrar el documento no te pregunte si quieres
guardar cambios y...

1) ...salga sin guardar, entonces en el modulo de EsteLibro (ThisWorkbook)
pon el siguiente codigo:

-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved=True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = True
End Sub
-

2) ...salga guardando el libro forzosamente, entonces en el modulo de
EsteLibro (ThisWorkbook) pon el siguiente codigo:

-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Save
End Sub
-

Saludos,
KL



"Juanjo" wrote in message
news:
> Como puedo eliminar mediante una macro el mensaje que me aparezca al
> cerrar
> siempre un programa de excel?? A poder ser no me gustaria que se gurdara
> la
> hoja sino que no saliera el mensaje!!

Hola Juanjo,

Abre el archivo sin habilitar los macros
Copia el codigo
Guarda los cambios
Reabre el archivo.

Saludos,
KL


"Juanjo" wrote in message
news:

Esto me surge el siguiente problema
Funciona tan bien que ni siquiera guarda las instrucciones. Me explico
Sale solo una vez sin guardar ni sacar el mensaje, la siguiente vez al no
haber guardado el documento los codigos escritos desaparecen y al salir me
vuelve a pedir guardar otra vez.

Como puedo hacer para que guarde estos codigos pero no guarde el documento
o
algo parecido?? Que complicado se hace todo.

"KL" wrote:

Hola Juanjo,

Si lo que quieres es que al cerrar el documento no te pregunte si quieres
guardar cambios y...

1) ...salga sin guardar, entonces en el modulo de EsteLibro
(ThisWorkbook)
pon el siguiente codigo:

-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved=True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = True
End Sub
-

2) ...salga guardando el libro forzosamente, entonces en el modulo de
EsteLibro (ThisWorkbook) pon el siguiente codigo:

-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Save
End Sub
-

Saludos,
KL



"Juanjo" wrote in message
news:
> Como puedo eliminar mediante una macro el mensaje que me aparezca al
> cerrar
> siempre un programa de excel?? A poder ser no me gustaria que se
> gurdara
> la
> hoja sino que no saliera el mensaje!!