xlam y el error 1004

3 envíos / 0 nuevos
Último envío
WillWill
Imagen de WillWill
Offline
última acción: Hace 1 año 4 meses
alta: 23/05/2020 - 03:48
Puntos: 25
xlam y el error 1004

 

Saludos

Tengo el siguiente problema:

1. Programe una UDF en un *.xlsm

En el módulo:

Sub inicio()

Dim DesA(1 To 2) As String

DesA(1) = "var 1"

DesA(2) = "var 2"

Application.MacroOptions Macro:="ecuacion1", _

        Description:="Descripción de la ecuación", _

        Category:="Biblioteca", _

        ArgumentDescriptions:=DesA

End Sub

 

Function ecuacion1(x, y)

ecuacion1 = x + y

End Function

 

en Thisworkbook:

Private Sub Workbook_Open()

Call Modulo.inicio

End Sub

 

2.Lo grabé como Complemento de Excel *.xlam

3.Lo habilité como Complemento disponible en el Administrador de Complementos.

4. Funciona bien.

5. Cierro Excel. Cuando abro Excel y empieza a cargar el programa sale el mensaje de error:

 

Se ha producido el error '1004' en tiempo de ejecución:

No se puede modificar una macro que se encuentra en un libro oculto. Muestre el libro con el comando Mostrar.

 

6.Cuando selecciono Depurar, se marca en amarillo:

Application.MacroOptions Macro:="ecuacion1", _

        Description:="Descripción de la ecuación", _

        Category:=15, _

        ArgumentDescriptions:=DesA

 

Quiero crear un complemento (*.xlam) que además de las UDFs contenga el código para crear la categoria. Este complemento luego será usado por otras personas.

Gracias por la ayuda.

Armando (no verificado)
Imagen de Armando
Duda

Tengo el mismo problema, lo pudiste solucionar?

 

una abrazo!!!

Valducho
Imagen de Valducho
Offline
última acción: Hace 1 semana 9 horas
alta: 06/10/2021 - 19:25
Puntos: 10
Posible Solución

Cambia la cabecera: Private Sub Workbook_Open()

Por ésta:   Private Sub Workbook_Activate()

Otra posible solucion es desactivar el control de errores siempre que estés seguro que tu función carece de errores:
Private Sub Workbook_Open()
   On Error Resume Next
   Call Modulo.Inicio
   On Error GoTo 0
End Sub