XL 2010 Erreur lors de l'appel au projet VB

[Eric C]

Bonsoir ou bonjour le forum

Je me suis penché (sans tomber) sur d'anciens codes recueillis çà & là sur le net et que je suis en train de tester. Sur de nombreux fichiers et à partir du moment où il est fait appel à la mise en application de Visual Basic, j'obtiens un message d'erreur :

Erreur d'exécution "1004" - L'accès par programme au projet Visual Basic n'est pas fiable".

Je tiens à préciser que je suis sous XL 2010 et que j'ai activé les macros à l'ouverture depuis le Centre de Gestion de la Confidentialité.
Pour info, je mets l'un des codes testés et qui me fait défaut :

Sub DeleteAllVBA()
'd'après un auteur inconnu, mpep
Dim VBComp As Variant
Dim VBComps As Variant
  
  Set VBComps = ActiveWorkbook.VBProject.VBComponents
  For Each VBComp In VBComps
    Select Case VBComp.Type
      Case 1 To 3
        VBComps.Remove VBComp
      Case Else
        With VBComp.CodeModule
          .DeleteLines 1, .CountOfLines
        End With
    End Select
  Next VBComp
End Sub

C'est à cette partie : Set VBComps = ActiveWorkbook.VBProject.VBComponents que l'erreur survient
Bonne nuit à toutes & à tous
@+ Eric c

 

[job75]

Bonjour Eric C, le forum,

Pour que l'accès au VBAProject soit possible par macro il faut avoir coché l'option :

- sur Excel 2003 et versions antérieures Faire confiance au projet Visual Basic (menu Outils-Macro-Sécurité-Editeurs approuvés)

- sur Excel 2007 et versions suivantes Accès approuvé au modèle d'objet du projet VBA (onglet Fichier-Options-Centre de gestion de la confidentialité-Paramètres...-Paramètres des macros).

Bonne journée.

 

[Eric C]

Bonjour le forum
Bonjour job75

Bonjour & Merci. Il sait vraiment tout sur Excel notre Job national 😉 - Bonne journée
@+ Eric c

 

[job75]

Non Eric je suis loin de tout savoir mais je suis intervenu sur pas mal de fils traitant de cette question.

Faites une recherche sur mes messages avec les mots clés Faire confiance.

 

[Eric C]

Oki.