Discussion :

[Albatros182]

Bonjour tous,

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

Code :

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

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.

[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,

[Patrice740]

Bonjour,

Pour supprimer tous les modules d'un classeur, il suffit de l'enregistrer au format xlsx.

[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.

[Patrice740]

... 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)