Foro Excel

Deberias intentar hacer la copiar automatica desde la red al accesar el archivo es decir:

1.- Al abrir el archivo verificar si existe el complemento localmente
2.- Si no existe copiarlo
3.- Ya que existe cargarlo de forma dinamica

No se si te funcione de esta forma.

Anexo dos codigos para que los adaptes segun tus necesidades.
Con este cargamos y copiamos a disco, lo realize por error debido a posibles mensajes a futuro.

Sub micarga()
On Error GoTo mierror
AddIns("Cargadinamica.xLA").Installed = True
mierror:
Select Case Err.Number
Case 9
AddIns.Add("\\Miservidor\MiCarpetaDeComplemento\Cargadinamica.xLA", True).Installed = True
End Select
End Sub


El siguiente es para sacar el status de los complementos instalados:

Sub cargados()
With Worksheets("hoja1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Name", "Full Name", "Title", "Installed")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Name
.Cells(i + 1, 2) = AddIns(i).FullName
.Cells(i + 1, 3) = AddIns(i).Title
.Cells(i + 1, 4) = AddIns(i).Installed
Next
.Range("a1").CurrentRegion.Columns.AutoFit
End With
End Sub


Saludos