Code pour supprimer les modules d'un fichier

bonsoir le forum

je souhaiterai savoir s'il est possible de crééer un code qui supprime les modules d'un fichier excel ?

merci de vos commentaires avisés

chb44

Bonsoir,

je souhaiterai savoir s'il est possible de crééer un code qui supprime les modules d'un fichier excel ?

Oui

merci de vos commentaires avisés

Comment dire....

Si ce code existe, et il existe, est-il dangereux à utiliser?

Oui

Maintenant, tout dépend de l'utilisation que tu veux en faire....

Exporter un fichier sans les codes?

Exporter une feuille sans les codes?

Précise l'utilisation, car comme je ne suis pas fana de donner des codes "tout cuits" à des "apprentis", ne sachant ce qu'ils vont en faire (genre, je le mets dans un "WorkBook_Open", et je détruits tous les codes des pôv gars qui vont ouvrir mon fichier sans méfiance.....)

Bonne soirée

Bonjour Cousin Hub

Effectivement, je comprends tes précautions sur le sujet !!

dans mon cas, il s'agit de fichiers envoyés à des clients pour lequel, je souhaiterai qu'ils ne puissent pas voir les macros utilisées pour constituer ce fichier. le fichier envoyés ne comporte pas de macros, mais pour générer la version client, j'utilise plusieurs macros contenues dans les modules et ces dernières que je souhaiterai effacer

espérant avoir répondu à tes attentes

Bonsoir,

Attention, le code qui suit doit fermer l'application "Excel", afin que tous les codes soient effectivement supprimés.

Il est donc nécessaire que tu aies enregistré, et fermé, tous tes fichiers "en cours".

Ce code enregistre ton fichier de travail, puis l'enregistre sous un autre nom, dans le même répertoire.

Ensuite, il supprime tous les codes présents dans ce nouveau fichier.

Et Ferme "Excel"

Donc, à manier avec précaution

Code adapté d'un mix "Laurent Longre" et "Frédéric Sigonneau"

Sub Export_sans_code()
Dim NomSource$, CheminDest$, NomDest$
Dim VBC As Object

NomSource = ThisWorkbook.Name
CheminDest = ThisWorkbook.Path & "\"
NomDest = "Essai.xls" 'A adapter
Workbooks(NomSource).Save 'si tu veux enregistrer avant d'exporter
Application.DisplayAlerts = False
Workbooks(NomSource).SaveAs CheminDest & NomDest
Application.DisplayAlerts = True
With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
        If VBC.Type = 100 Then
            With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                .CodePane.Window.Close
            End With
        Else: .VBComponents.Remove VBC
        End If
    Next VBC
End With
Application.Quit 'pense à fermer tous les fichiers ouverts avant
SendKeys "%O"
End Sub

Bon courage

merci je vais tester !!