Buenas, tengo un proyecto con tres userforms a los cuales he podido acceder en un proceso normal. Pero me ha llegado el problema cuando he querido volver a un userform que le habia puesto en .Hide y me saltaba el error de que no se podía mostrar porque ya estaba abierto. He intentado ir cerrando los userform según iba pasando al siguiente mediante una funcion ubicada en un módulo y ahora me da error '91' en tiempo de ejecucion - variable de ojeto o bloque with no establecido. Esta es la funcion que la tengo ubicada en un Módulo.

Function FormularioAbierto(ByVal Nombre As String) As Boolean
    Dim frm As Object
    frm = False
    For Each frm In VBA.UserForms
        If frm.Name = Nombre Then
            FormularioAbierto = True
            Exit Function
        End If
    Next frm
    
End Function

y el error me salta cuando salgo del userform1 al userform2 con el codigo userform2.show

en initialize del userform2, tengo lo siguiente, que es la razón del error:

Private Sub UserForm_Initialize()
       
    lblDocumento.Caption = ThisWorkbook.Name
    captionRotatorio
    continuarFase2
    If Funciones.FormularioAbierto("Calendario_Valcarlos") Then
        Unload Calendario_Valcarlos
    End If
    If Funciones.FormularioAbierto("Computos") Then
        Unload Computos
    End If
End Sub

Lo he sacado de internet y no sé que estoy haciendo mal.

Estoy abierto a ideas a posibles soluciones para poder acceder nuevamente a formularios ocultos

Sube tu archivo y explica que quieres hacer con los formularios

Sube tu archivo, hablas de Userform1 y Userform2, mientras en el código hablas de Computos y Calendario_Valcarlos, por otro lado sin saber en que modo se han mostrado los formularios se hace difícil ayudarte.

Editado el el 18 de marzo2 años por Antoni

buenas, he tenido que comprimir el archivo porque superaba los 100kb. Encantado por ser atendido por dos eminencias como vosotros, me habeis dado muchas soluciones a través de otros usuarios

calendario valcarlos.Original.rar

calendario valcarlos.Original.xls

hace 2 horas, JSDJSD dijo:

calendario valcarlos.Original.xls 180.5 kB · 8 descargas

Gracias!!! funciona perfectamente. tan solo eran cuatro palabras mas pero  el saber donde y como ponerlos vale mas. Una cosa mas que he aprendido hoy