Niektoré Addins idú zapnúť/vypnúť takto:
Sub ON_OFF_ADDIN(ONOFF As Boolean)
Dim AD As AddIn
For Each AD In AddIns
Select Case AD.Title
Case "Euro Currency Tools", "niečo iné"
AD.Installed = ONOFF
End Select
Next AD
Set AD = Nothing
End Sub
Sub Zapni()
ON_OFF_ADDIN True
End Sub
Sub Vypni()
ON_OFF_ADDIN False
End Subcitovat
Sub ON_OFF_ADDIN(ONOFF As Boolean)
Dim AD As AddIn
For Each AD In AddIns
Select Case AD.Title
Case "Euro Currency Tools", "niečo iné"
AD.Installed = ONOFF
End Select
Next AD
Set AD = Nothing
End Sub
Sub Zapni()
ON_OFF_ADDIN True
End Sub
Sub Vypni()
ON_OFF_ADDIN False
End Subcitovat