Add-ins don't work (Excel)

Hello.

I got a problem with two add-ins on Microsoft Excel 2013 (32 bits).

I receive the next messages when i try use them:

Add-in 1:

Attachment 147741

Add-in 2:

Attachment 147743


I know how to discover the add-in code (Visual Basic: Alt+11), but i'm not the programmer , so i can't understand the lines.

Can someone help me with this issue? I have no idea. Apparentely, the add-ins are in the right path.

Quote:

---

I know how to discover the add-in code (Visual Basic: Alt+11)

---

so if you posted the code here someone may be able to help

were these addins working previously? is what changed?

are they compiled or workbook addins?

A days ago, add-ins worked, i dont know if some Office Update caused something.

Visual Basic show this structure (Add-in 1)

Attachment 147749

I don't know what part can be interesting to study the problem. I'm in a company, so i censored some name.

Thanks for the reply.

Quote:

---

I don't know what part can be interesting to study the problem.

---

the code where the error occurs might be more interesting

This is the code which load add -in 1:

Quote:

---

Public Sub VentanaInicio()
Dim i As Long
Dim RutaIni As String
Dim UtilesComunes As ****UtilidadesComunes.Utilidades
Dim ObjUtiles As Object

On Local Error GoTo ControlError

Set UtilesComunes = New ****UtilidadesComunes.Utilidades
Set ObjUtiles = CreateObject("****_Util.utiles")
RutaIni = ObjUtiles.GetReg("HKEY_LOCAL_MACHINE\SOFTWARE\****\****_Tesoreria", "RutaAplicacion")

RutaBD = UtilesComunes.GetProfile(RutaIni & "\cmt.ini", "BaseDa******vidor", "RutaBDServer", "")
RutaBDTT = UtilesComunes.GetProfile(RutaIni & "\cmt.ini", "BDTAyATesoreria", "RutaBDTT", "")
InformeProceso = UtilesComunes.GetProfile(RutaIni & "\cmt.ini", "BaseDa******vidor", "InformeProceso", "")
Set ObjUtiles = Nothing
Load Ficha
Ficha.Show
Set UtilesComunes = Nothing
Exit Sub
ControlError:
MsgBox "Error Nº: " & Err.Number & ", " & Err.Description, vbCritical
End Sub

---

HKEY_LOCAL_MACHINE\SOFTWARE\****\****_Tesoreria doesn't exist.

MsgBox "Error Nº: " & Err.Number & ", " & Err.Description, vbCritical is the dialog which appears on the screen.

**** is a word which i prefer don't show on forums.