Abrir un UserForm al Cerrar otro UserForm

15/03/2007 - 23:44 por Insumos | Informe spam

Gente del foro:

Tengo la siguiente consulta: Tengo dos Userform llamados UserForm1 y
UserForm2. Desde el UserForm1 accedo al UserForm2 mediante un botón de
comando. Ahora lo que yo quiero es que al cerrar el UserForm2 clickeando en
el botón con la X que se encuentra en el extremo superior derecho de la
ventana (el que esta en la barra de título) en lugar de volver a la hoja de
cálculo se abra el UserForm1. He experimentando con estos códigos:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Load UserForm1
UserForm2.Hide
UserForm1.Show

End Sub

Private Sub UserForm_Terminate()

Load UserForm1
UserForm2.Hide
UserForm1.Show

End Sub

Tanto con uno con otro código lo que sucede es que la primera vez funciona y
al cerrar el UserForm2 vuelve al UserForm1, pero si vuelvo a acceder al
UserForm2 y lo vuelvo a cerrar ya no vuelve la segunda vez a abrir el
UserForm1. Se puede solucionar esto?
Desde ya muchas gracias!!!

CONTADURIA

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 Insumos

19/03/2007 - 23:20 | Informe spam

Hola Héctor:

Muchas gracias nuevamente. He implementado con éxito el código que me
proporcionaste para deshabilitar el botón X.
Será hasta la próxima. Gracias por todo!!
Saludos!

Mariano

"Héctor Miguel" escribió en el mensaje
news:

hola, Mariano ! [gracias por 'exponer' tu nombre] :))

> ... me queda solo una cosita en el tintero
> que es que yo no quiero que los usuarios puedan "acceder" a la hoja de

calculo al cerrar el Userform1

> sino que quiero que queden confinados a usar solo los UserForm.
> En el UserForm1 puse este código:
>
> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
> UserForm1.Hide
> UserForm1.Show
> End Sub
>
> Y parece funcionar bien, ya que al apretar la X no se accede a la hoja

de calculo sino que queda el UserForm1 en pantalla.

> Esta bien lo que hize o hay una mejor (y tal vez mas segura para el

codigo) manera?

si solo quieres evitar que este 'disponible/funcional/... el boton [X] de

un formulario, usa algo +/- como lo siguiente:

en el modulo de codigo del formulario ==> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode = vbFormControlMenu
End Sub

nota: todavia se puede cerrar el formulario [pero]... SOLO si pulsan

{ctrl}+{break/pausa/interrupcion}