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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

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?

Responder a este mensaje

#2 JC

14/02/2008 - 12:13 | Informe spam

No me vas a creer... pero no lo había "visto"...
Sin comentarios... Soy un @#~€¬@# !!!...

Pido que acepteis mis disculpas a Tí y a la Comunidad, por molestaros de
esta forma... Un adobe... eso es lo que soy...

Mil gracias Héctor Miguel y un fuerte abrazo para Mexico.

JC

"Héctor Miguel" wrote:

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?

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida