Al cerrar Libro

10/06/2004 - 15:11 por Marcelo | Informe spam
Hola:

Quisiera que al cerrar el un libro se eliminaran
automaticamente dos hojas de este libro (Hoja1 y Hoja2).Ž
¿Cómo debería ser el código para poder lograr esto?

Muchas Gracias.

Marcelo

Preguntas similare

Leer las respuestas

#1 Henry Sanchez
10/06/2004 - 17:27 | Informe spam
Hola Marcelo,
Lo primero que debes hacer es colocar tu codigo en el
procedimiento de evento BeforeClose del libro de trabajo,
algo asi como:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts=False (Para que no pregunte
si esta seguro de querer borrar las hojas)
Worksheets("Hoja1").Delete
Worksheets("Hoja2").Delete
Application.DisplayAlerts=True
End Sub

Hay que tener en cuenta que si al momento de cerrar el
libro, estas hojas no existen se produce un error, por lo
cual seria conveniente que introdujeras en tu codigo una
clausula On Error Gosub.
Tambien debes tener en cuenta que si por algun motivo, tu
Excel se bloquea y teves obligado a reiniciar el
computador, este codigo no se ejecuta y al abrir
nuevamente el archivo encontraras las hojas dentro del
libro.

Saludos,

Henry


Hola:

Quisiera que al cerrar el un libro se eliminaran
automaticamente dos hojas de este libro (Hoja1 y Hoja2).Ž
¿Cómo debería ser el código para poder lograr esto?

Muchas Gracias.

Marcelo
.

Respuesta Responder a este mensaje
#2 Marcelo
10/06/2004 - 17:51 | Informe spam
Muchas Gracias Henry:

Tengo una pregunta.
¿Donde iría el "On Error Gosub"?
¿Es solo eso que debo agregar?

Gracias.
Marcelo


Hola Marcelo,
Lo primero que debes hacer es colocar tu codigo en el
procedimiento de evento BeforeClose del libro de trabajo,
algo asi como:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts=False (Para que no pregunte
si esta seguro de querer borrar las hojas)
Worksheets("Hoja1").Delete
Worksheets("Hoja2").Delete
Application.DisplayAlerts=True
End Sub

Hay que tener en cuenta que si al momento de cerrar el
libro, estas hojas no existen se produce un error, por lo
cual seria conveniente que introdujeras en tu codigo una
clausula On Error Gosub.
Tambien debes tener en cuenta que si por algun motivo, tu
Excel se bloquea y teves obligado a reiniciar el
computador, este codigo no se ejecuta y al abrir
nuevamente el archivo encontraras las hojas dentro del
libro.

Saludos,

Henry


Hola:

Quisiera que al cerrar el un libro se eliminaran
automaticamente dos hojas de este libro (Hoja1 y Hoja2).Ž
¿Cómo debería ser el código para poder lograr esto?

Muchas Gracias.

Marcelo
.



.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida