Export Installer module on save

Author: DecimalTurn

Installer.xls

@@ -12,10 +12,18 @@ Private Sub Workbook_Open()
 End Sub
 
 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
-'PURPOSE: Make sure that the Installer module is not included when the file is saved
+'PURPOSE: Make sure that the Installer module is exported and then deleted, so it is not included when the file is saved
 
     On Error Resume Next
+    Call ExportInstallerModule
     ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("Installer")
     On Error GoTo 0
 
 End Sub
+
+Sub ExportInstallerModule()
+    Dim wb As Workbook
+    Set wb = ThisWorkbook
+    wb.VBProject.VBComponents("Installer").Export (wb.Path & "\Installer.bas")
+
+End Sub