supprimer module classeur ouvert par VBA

Version imprimable

Bonjour tous,

J'utilise le code suivant pour supprimer les module d'un classeur excel. Il marche très bien.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 1. Sub SupprimeModule() 2. 'Macro de suppression de l'intégralité des modules de code d'un classeur défini 3. 'le dit classeur étant ouvert 4. Dim Wk As Workbook 5. Set Wk = Workbooks("Classeur1.xls" ) 6. Dim i As Integer 7. For i = Wk.VBProject.VBComponents.Count To 1 Step -1 8. If Wk.VBProject.VBComponents.Item(i).Type = 1 Then 9. Wk.VBProject.VBComponents.Remove Wk.VBProject.VBComponents.Item(i) 10. End If 11. Next i 12. End Sub
Néanmoins je voudrais l'adapter pour qu'il ne soit plus nominatif "classeur1.xls" et donc qu'il supprime les modules du classeur ouvert (le nom change souvent et est variable).

Je voudrais ajouter une ligne de code à la fin pour qu'il protége le projet VBA par un code et qu'il ne soit pas accessible par l'utilisateur.

Merci par avance pour votre aide toujours si précieuse.

31/10/2020, 14h22
mfoxy

Bonjour,

Pour moi le fait de devoir supprimer des modules par code,suppose un souci de conception/gestion de fichier, d'où les questions :

Pourquoi devez-vous supprimer du code de ces fichiers ?
Pourquoi "protéger" un projet Vba si celui-ci est vide ?

Une approche plus safe ,pourrais ou devrais être envisagée.

Bav,
31/10/2020, 14h27
Patrice740

Bonjour,

Pour supprimer tous les modules d'un classeur, il suffit de l'enregistrer au format xlsx.
31/10/2020, 17h57
Albatros182

Bonjour,

J'ai des taches successives exécutées par macro sur un fichier pour le personnaliser à un utilisateur.

Lorsqu'elles sont exécutées, les modules ne servent plus à rien et peuvent créer des incompatibilité si l'utilisateur l'ouvre avec libreoffice par exemple. D'où leurs suppression.

Je veux protéger le BVA par un code car il reste une macro workbook open dans le Thisworkbook qui reste en place et que je veux protéger.
31/10/2020, 18h33
Patrice740

Citation:

Envoyé par Albatros182

... si l'utilisateur l'ouvre avec libreoffice par exemple. D'où leurs suppression.
Je veux protéger le BVA par un code car il reste une macro workbook open dans le Thisworkbook

Tu ne supprimes donc pas tous les modules (tu conserves le module Thisworkbook)

Mais pourquoi protéger le projet ?

L'utilisateur peut toujours désactiver les macros, on ne peut pas l'obliger à les exécuter.
Et comme je t'ai dis il suffit d'enregistrer au format xlsx pour supprimer tous les modules (y compris Thisworkbook)