Discussion :

[grand_arnaud]

Bonjour,

je cherche comment je peux supprimer tous Codes, Modules, Macro de toutes les feuilles d'un classeur fermé.... à partir d'un autre classeur...

Est es ce que quelqu'un à une idée?

Cordialement

[QuestVba]

Bonjour

Un début avec http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Tu peux essayer ceci

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
17
18
19
20
21
22
23
Sub SupprimeToutCodeEtFormulaire()
 
Dim VBComp As Object
Dim VBComps As Object
 
 
ChDir "C:\temp"
Workbooks.Open Filename:="C:\temp\Classeur2.xls"
 
Set VBComps = ActiveWorkbook.VBProject.VBComponents
 
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
 
End Sub

[grand_arnaud]

Bonjour,

n'y a-t-il vraiement pas moyen de faire ça sur un classeur fermé?

Pour l'histoire, j'utilise un classeur avec plein de macro et de codes, que je sauvegarde sur le réseau du boulot...
Le but de la manip c'est de supprimer tous Codes, Modules, Macro de toutes les feuilles du fichier qui est mis sur le réseau.
Pourquoi?---> le fichier qui est sur le réseau, est un fichier qui ne sert qu'a la consultation pour les autres collégues et mon chef... ils n'ont pas a avoir les macros qui mettraient le bazard sur le réseau et leur PC...

[issoram]

Bonjour,

Pour faire, ce genre de manip dans un classeur fermé, je ne peux pas t'aider et je serais intéressé aussi de savoir si c'est possible.

En attendant,si c'est la consultation des macros qui pose problème: tu peux verrouiller leur accès par mot de passe
Sinon tu l'enregistres en tant que classeur sans macro sur ton réseau.

[grand_arnaud]

et comment fait-on pour "enregistrer en tant que classeur sans macro", je n'ai pas trouvé cette option....

[Jean-Philippe André]

salut,
la notion de "classeur sans macro" apparait dans la version 2007 d'Excel. Comme tu ne nous a pas donné la version sur laquelle tu travailles, pas évident de proposer LA solution

En quoi la proposition de Questvba ne te convient-elle pas ?


Reste une solution de recopie intégrale des feuilles dans un nouveau classeur vierge et de l'écrasement du fichier vierge de code en fin de processus.

Plus tu nous en dis sur tes contraintes, moins on passera de temps à te proposer des choses qui ne sont pas "faisables" dans ton environnement, et plus la solution apportée sera la plus adéquate à ta problématique.

Merci pour nous

[issoram]

Sous 2010:

- Enregistrer sous: Classeur Excel .xslx
- Une boite de dialogue apparait :"....Voulez vous enregistrer en tant que classeur sans macro?": choisir oui

Et voilou