Aktivera / referera och avaktivera / ta bort referens - Problemlösaren
Här visas ett praktiskt tips när det gäller tilläggsverktyg. Exemplet visar dels hur vi aktiverar Problemlösaren och dels hur vi anger en referens till verktyget samt hur vi gör det omvända.
Här har ingen referens satts till "Microsoft Visual Basic for Applications Extensibility 5.3".
Option Explicit
Sub Aktivera_Referera_Problemlosaren()
'© 2002 Alla rättigheter XL-Dennis
On Error Resume Next
With AddIns("Problemlösaren")
If Not .Installed Then .Installed = True
End With
ThisWorkbook.VBProject.References.AddFromFile _
Filename:=Application.LibraryPath & "\SOLVER\SOLVER.XLA"
End Sub
Sub Avaktivera_TaBortReferens_Problemlosaren()
On Error Resume Next
'© 2002 Alla rättigheter XL-Dennis
With ThisWorkbook.VBProject.References
.Remove .Item("SOLVER.xls")
End With
With AddIns("Problemlösaren")
If .Installed Then .Installed = False
End With
End Sub