Pessoal,
O meu projeto possui cerca de 12 userform's. Algumas delas são abertas através de várias userform's diferentes.
No exemplo abaixo a userform, através de um botão, é ocultada é abre a userform2.
Image1_Click()
UserForm1.Hide
'variável para encerramento da userform2
UserForm2.TextBox1.Text = 1
UserForm2.Show
End sub
Ao dar um duplo click na userform2, a mesma é encerrada através do código abaixo:
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = 1 Then
Unload Me
UserForm1.Show
Exit Sub
End If
If TextBox1.Text = 2 Then
Unload Me
UserForm9.Show
Exit Sub
End If
Observa que, antes de fecha-la, o código utiliza o textbox1 como critério para encerramento. Nesse exemplo, ao dar duplo click, retornaremos para a userformm1. Isso funciona perfeitamente no comando UserForm_DblClick.
A minha dificuldade estar em utilizar o botão X da userform para executar esse código.
No UserForm_QueryClose até que funciona, ou seja, ele fecha a userform2 e reabre a userform1, mas isso só por uma vez, porque se eu abrir a userform2 de novo, a mesma fica bloqueada.
O que vocês sugerem ?
Postado : 06/02/2015 12:25 pm