El libro que no se pueda guardar.-

12/02/2008 - 09:35 por JC | Informe spam
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
 

Leer las respuestas

#1 Héctor Miguel
12/02/2008 - 22:48 | Informe spam
hola, JC !

has probado a usar la mismisima macro "Sub Guardar_Cambios()" -???-

saludos,
hector.

__ la consulta original __
... despues de lo que podia parecer una triunfal solucion, por parte del Amigo Willi (que dio 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:="Funcion deshabilitada"
End Sub
... 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 dia siguiente cuando lo abres, ya no estan estas sentencias, que nunca se llegaron a guardar.
Podria alguien, por favor, indicarme como puedo guardar estos cambios o alguna otra solucion alternativa?

Preguntas similares