evento open con userforms

abrir un libro con el evento Open que abre un formulario para pedir al
usuario un dato. Si el usurio cancela el fomulario quiero que el archivo
se
cierre.

Saludos a todos:

Espero que alguien pueda decirme algo sobre el siguiente error, intento
abrir un libro con el evento Open que abre un formulario para pedir al
usuario un dato. Si el usurio cancela el fomulario quiero que el archivo
se
cierre.

Os detallo cada accion y su codigo.

Un evento open abre un libro y muestra un formulario de captura de datos
con
el siguiente codigo:

Private Sub Workbook_Open()
Hoja2.Activate
UserForm1.Show
End Sub

El formulario tiene un boton Cancelar para que cierra el libro el codigo:

Private Sub CommandButton2_Click()
'boton cancelar
Unload Me
MsgBox "Se acabo"
ActiveWorkbook.Close False
End Sub

Gracias a todos.

Prueba con el evento terminate del formulario.

Algo asi (cierra el libro que contiene el codigo, sin guardar cambios)

Private Sub UserForm_Terminate()
MsgBox "se acabo"
ThisWorkbook.Close savechanges:=False
End Sub

un saludo
juan

Hola

> abrir un libro con el evento Open que abre un formulario para pedir al
> usuario un dato. Si el usurio cancela el fomulario quiero que el archivo
> se
> cierre.

"Pdiaz" escribió en el mensaje
news:
> Saludos a todos:
>
> Espero que alguien pueda decirme algo sobre el siguiente error, intento
> abrir un libro con el evento Open que abre un formulario para pedir al
> usuario un dato. Si el usurio cancela el fomulario quiero que el archivo
> se
> cierre.
>
> Os detallo cada accion y su codigo.
>
> Un evento open abre un libro y muestra un formulario de captura de datos
> con
> el siguiente codigo:
>
> Private Sub Workbook_Open()
> Hoja2.Activate
> UserForm1.Show
> End Sub
>
> El formulario tiene un boton Cancelar para que cierra el libro el codigo:
>
> Private Sub CommandButton2_Click()
> 'boton cancelar
> Unload Me
> MsgBox "Se acabo"
> ActiveWorkbook.Close False
> End Sub
>
> Gracias a todos.

Gracias juan por tu respuesta.

Intento con el evento Terminate pero da el mismo error.

Reproduzco el mensaje:

Error del sistema &H8000FFFF(-2147418113). Error catastrofico.

Hola

Cuando respondi a tu consulta no me di cuenta de lo del error, pero despues
de haber hecho unas pruebas con los pedacitos de codigo que has posteado, no
he sido capaz de reproducir el error.
Me parece que debe venir de algo que haces a partir de que cargas el
formulario.
Realiza, si puedes una prueba en un libro nuevo, poniendo exactamente lo que
has mandado, si no te da el problema ya sabes por donde empezar a buscar el
fallo, si por el contrario el error se mantiene el problema vendria de algo
que tenga excel.

comentas si persiste el error?

un saludo
juan

"Pdiaz" escribió en el mensaje
news:
> Gracias juan por tu respuesta.
>
> Intento con el evento Terminate pero da el mismo error.
>
> Reproduzco el mensaje:
>
> Error del sistema &H8000FFFF(-2147418113). Error catastrofico.
>
>