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
 

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
.

Preguntas similares