Visual Basic para Aplicaciones - Cerrar formularios abiertos

Life is soft - evento anual de software empresarial
   
Vista:

Cerrar formularios abiertos

Publicado por Pablo (65 intervenciones) el 18/01/2018 22:38:53
Tengo una aplicación con la que voy abriendo formularios, pero no siempre son los mismos.

Al finalizar se abre un formulario en el que se da las gracias al usuario y se le dan instrucciones para continuar.

Al hacer clic quiero que se cierren (unload) todos los formularios que se han abierto.

Tengo este código:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Label1_Click()
 
Dim tal As Object
 
    For Each tal In VBA.UserForms
        Unload tal
    Next
 
'visualizar el boton de enviar a validar
Sheets("Hoja3").Select
Hoja3.CommandButton1.Visible = True
End Sub

Y me da el error "Primero tiene que cerrar el formulario modal superior"

¿Que quiere decir, que los formularios que no están abiertos no se pueden cerrar?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Cerrar formularios abiertos

Publicado por gilman (19 intervenciones) el 19/01/2018 12:29:55
El problema es que primero tienes que descargar las pantallas modales, prueba
1
2
3
4
Dim i As Long
For i = VBA.UserForms.Count To 1 Step -1
    Unload VBA.UserForms(i - 1)
Next i
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cerrar formularios abiertos

Publicado por Pablo (65 intervenciones) el 19/01/2018 13:13:25
1
2
3
4
5
6
7
Dim i as Long
 
For i = 1 to 1000000
 
   MsgBox "GRACIAS !!"
 
Next i
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad