Enregistrer un doccument sans le fomulaire

Question

Bonjour, 

Je suis nul en VBA.
J'ai réussi à créer un formulaire mon fichier est enregistrer en Modèle Microsoft Excel prenant en charge les macros (.xltm).
Je souhaiterai savoir comment faire pour supprimer les macros et le formulaire lorsque les utilisateurs enregistre le fichier?

Merci d'avance


Configuration: Windows 7 / Chrome 45.0.2454.99

cs_Le Pivert · Answer

Bonjour,

Dans un module mettre ceci:


Option Explicit
Sub SupprModule()
On Error Resume Next
    With ActiveWorkbook.VBProject.VBComponents
        .Remove .Item("Module1")
        .Remove .Item("UserForm1")
    End With
    On Error GoTo 0
End Sub 

Mettre tous les modules à la suite en les nommant si il y en a plusieurs, idem pour les UserForm

Ensuite mettre dans ThisWorkBook ceci:

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SupprModule
End Sub

cs_Le Pivert · Answer

Cela ne fonctionne!

Voici un exemple:

Avant de l'ouvrir faire une copie. Ensuite ouvrir le classeur et aller dans ThisWorkbook et activer la ligne verte qui est en commentaire, en enlevant l'apostrophe.


http://www.cjoint.com/c/EIyjjmogjGQ

Enregistrer un doccument sans le fomulaire

2 réponses

Discussions similaires

Newsletters