Evento BeforeSave, me guarda OTRO fichero!!!!

02/06/2005 - 17:32 por Luis Garcia | Informe spam
Hola otra vez, tengo un problema (para variar :-)):

Escenario: Tengo la "personal.xls" y quiero que al guardar (por si he estado
cambiando cosas y tal y tal) se oculte la ventana, para que el usuario no
vea
el libro. (Esto no es del todo correcto, puesto que en 'Ventana|Mostrar'
aparece
el libro y lo pueden mostrar, pero es como lo tengo hasta ahora.)

Para ello, hago:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
On Error Resume Next
With Windows(ThisWorkbook.Name)
.Visible = False
End With
End Sub

Pues de esta forma, cuando guardo, se oculta la ventana... y me guarda el
libro que queda activo en ese momento!!!!, y si no hay ningun libro activo,
porque era el único libro abierto, entonces peta Excel!!!


Pregunta: ¿Como evitar este problema?
ó
Pregunta: ¿Como ocultar el libro para que no accedan los usuarios?

Nota: No me interesa ThisWorbook.IsAddin = True, porque entonces
desaparecen las macros que he creado y que quiero que se utilicen.

Gracias otra vez

Saludos

Preguntas similare

Leer las respuestas

#1 KL
02/06/2005 - 19:50 | Informe spam
Hola Luis Garcia,

Prueba el codigo que te pongo a continuacion.

Saludos,
KL

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Application.EnableEvents = False
Windows(Me.Name).Visible = False
Me.Save
Application.EnableEvents = False
Cancel = True
End Sub
Respuesta Responder a este mensaje
#2 KL
02/06/2005 - 19:55 | Informe spam
Hola de nuevo,

El segundo "Application.EnableEvents = False" deberia ser
"Application.EnableEvents = True"

Saludos,
KL


"KL" wrote in message
news:
Hola Luis Garcia,

Prueba el codigo que te pongo a continuacion.

Saludos,
KL

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Application.EnableEvents = False
Windows(Me.Name).Visible = False
Me.Save
Application.EnableEvents = False
Cancel = True
End Sub




Respuesta Responder a este mensaje
#3 Luis Garcia
03/06/2005 - 10:56 | Informe spam
Ok. Funciona perfecto, gracias.
Ahora me queda la otra parte que lo pongo en otro hilo :-)))

Gracias
Saludos


"KL" escribió en...
Hola Luis Garcia,

Prueba el codigo que te pongo a continuacion.

Saludos,
KL

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Application.EnableEvents = False
Windows(Me.Name).Visible = False
Me.Save
Application.EnableEvents = False
Cancel = True
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida