Discussion :

[Kembali]

Bonjour,

Je dois développer des macros VBA sous Excel, lesquelles seront envoyées au client.
Afin que le client ne puisse pas voir et modifier les macros, je les ai mises dans un fichier XLA protégé par mdp .... Jusque là tout est OK ....

Juste ma question : si le client n'intègre pas le fichier xla dans ses add-ins, il n'aura pas accès aux macros .....

Je voudrais faire une macro qui au démarrage du workbook, teste si les macros sont existantes .... Comment puis-je faire ?

Merci beaucoup et bon dimanche ...

Dan

[mercatog]

Bonjour
une piste à tester

Application.AddIns, propriété
Cette propriété renvoie une collection AddIns qui englobe tous les compléments répertoriés dans la boîte de dialogue Compléments (menu Outils). En lecture seule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
Dim AD As AddIn
Dim OK As Boolean
 
For Each AD In Application.AddIns
    If AD.Name = "TonAddins.xla" And AD.Installed Then
        OK = True
        Exit For
    End If
Next AD
 
If Not OK Then
    MsgBox "addins non installé"
    Me.Close False
End If
End Sub