Enregistrer un doccument sans le fomulaire

asaillant -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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


A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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



0
asaillant
 
Merci mais ça ne fonctionne pas
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0