Basic VBA support.

Workbook.CreateVBAProject method to create a new project.
Workbook.CodeModule and Worksheet.CodeModule to access document code modules.
Workbook.VBAProject to access project properties.
Workbook.VBAProject.Modules.AddModule to add a new code Module.
Workbook.VBAProject.Modules.AddClass to add a new Class.
...and a lot more.

Working but need some polish.

--HG--
branch : VBA
rename : EPPlus/EncryptedPackageHandler.cs => EPPlus/Utils/EncryptedPackageHandler.cs
rename : EPPlus/ExcelVBAProject.cs => EPPlus/VBA/ExcelVBAProject.cs

Author: JanKallman

.hgignore

@@ -0,0 +1,27 @@
+syntax: glob
+*.obj
+*.pdb
+*.user
+*.aps
+*.pch
+*.vspscc
+*.vssscc
+*.ncb
+*.suo
+*.tlb
+*.tlh
+*.bak
+*.cache
+*.ilk
+*.log
+*.lib
+*.sbr
+*.scc
+[Bb]in
+[Dd]ebug*/
+obj/
+[Rr]elease*/
+[Tt]humbs.db
+[Tt]est[Rr]esult*
+[Bb]uild[Ll]og.*
+*.[Pp]ublish.xml

EPPlus/Drawing/ExcelDrawings.cs

@@ -239,7 +239,7 @@ public ExcelChart AddChart(string Name, eChartType ChartType, ExcelPivotTable Pi
             {
                 if(_drawingNames.ContainsKey(Name.ToLower()))
                 {
-                    throw new Exception("Name already exist in the drawings collection");
+                    throw new Exception("Name already exists in the drawings collection");
                 }
 
                 if (ChartType == eChartType.Bubble ||
@@ -289,7 +289,7 @@ public ExcelPicture AddPicture(string Name, Image image)
                 {
                     if (_drawingNames.ContainsKey(Name.ToLower()))
                     {
-                        throw new Exception("Name already exist in the drawings collection");
+                        throw new Exception("Name already exists in the drawings collection");
                     }
                     XmlElement drawNode = CreateDrawingXml();
                     drawNode.SetAttribute("editAs", "oneCell");
@@ -313,7 +313,7 @@ public ExcelPicture AddPicture(string Name, FileInfo ImageFile)
                 {
                     if (_drawingNames.ContainsKey(Name.ToLower()))
                     {
-                        throw new Exception("Name already exist in the drawings collection");
+                        throw new Exception("Name already exists in the drawings collection");
                     }
                     XmlElement drawNode = CreateDrawingXml();
                     drawNode.SetAttribute("editAs", "oneCell");
@@ -336,7 +336,7 @@ public ExcelShape AddShape(string Name, eShapeStyle Style)
             {
                 if (_drawingNames.ContainsKey(Name.ToLower()))
                 {
-                    throw new Exception("Name already exist in the drawings collection");
+                    throw new Exception("Name already exists in the drawings collection");
                 }
                 XmlElement drawNode = CreateDrawingXml();
                 ExcelShape shape = new ExcelShape(this, drawNode, Style);

EPPlus/EPPlus.csproj

@@ -145,10 +145,12 @@
     <Compile Include="ExcelStyles.cs" />
     <Compile Include="ExcelProtection.cs" />
     <Compile Include="ExcelTextFormat.cs" />
-    <Compile Include="ExcelVBAProject.cs" />
+    <Compile Include="VBA\ExcelVbaModule.cs" />
+    <Compile Include="VBA\ExcelVbaModuleCollection.cs" />
+    <Compile Include="VBA\ExcelVbaProject.cs" />
     <Compile Include="ExcelWorkbookView.cs" />
     <Compile Include="ExcelWorksheetView.cs" />
-    <Compile Include="EncryptedPackageHandler.cs" />
+    <Compile Include="Utils\EncryptedPackageHandler.cs" />
     <Compile Include="Style\ExcelGradientFill.cs" />
     <Compile Include="Style\XmlAccess\ExcelGradientFillXml.cs" />
     <Compile Include="Table\PivotTable\ExcelPivotTableFieldGroup.cs" />
@@ -186,6 +188,9 @@
     <Compile Include="Utils\IArgument.cs" />
     <Compile Include="Utils\Require.cs" />
     <Compile Include="Utils\SqRefUtility.cs" />
+    <Compile Include="VBA\ExcelVbaProtection.cs" />
+    <Compile Include="VBA\ExcelVbaReference.cs" />
+    <Compile Include="VBA\ExcelVbaSignature.cs" />
     <Compile Include="XmlHelper.cs" />
     <Compile Include="XmlHelperFactory.cs" />
   </ItemGroup>
@@ -261,7 +266,6 @@
       <Install>true</Install>
     </BootstrapperPackage>
   </ItemGroup>
-  <ItemGroup />
   <Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

EPPlus/ExcelPackage.cs

@@ -39,6 +39,7 @@
 using System.Collections.Generic;
 using System.Security.Cryptography;
 using OfficeOpenXml.Drawing;
+using OfficeOpenXml.Utils;
 namespace OfficeOpenXml
 {
     /// <summary>
@@ -191,6 +192,8 @@ internal class ImageInfo
         internal const string schemaVBA = @"application/vnd.ms-office.vbaProject";
         internal const string schemaVBASignature = @"application/vnd.ms-office.vbaProjectSignature";
 
+        internal const string contentTypeWorkbookDefault = @"application/vnd.openxmlformats-officedocument.spreadsheetml.sheet.main+xml";
+        internal const string contentTypeWorkbookMacroEnabled = "application/vnd.ms-excel.sheet.macroEnabled.main+xml";
         //Package reference
         private Package _package;
 		private ExcelWorkbook _workbook;
@@ -611,9 +614,41 @@ private XmlNamespaceManager CreateDefaultNSM()
 		/// <param name="xmlDoc">The XmlDocument to save</param>
 		internal void SavePart(Uri uri, XmlDocument xmlDoc)
 		{
-			PackagePart part = _package.GetPart(uri);
+            PackagePart part = _package.GetPart(uri);
 			xmlDoc.Save(part.GetStream(FileMode.Create, FileAccess.Write));
 		}
+        /// <summary>
+		/// Saves the XmlDocument into the package at the specified Uri.
+		/// </summary>
+		/// <param name="uri">The Uri of the component</param>
+		/// <param name="xmlDoc">The XmlDocument to save</param>
+        internal void SaveWorkbook(Uri uri, XmlDocument xmlDoc)
+		{
+            PackagePart part = _package.GetPart(uri);
+            if(Workbook.VbaProject==null)
+            {
+                if (part.ContentType != contentTypeWorkbookDefault)
+                {
+                    part = _package.CreatePart(uri, contentTypeWorkbookDefault, Compression);
+                }
+            }
+            else
+            {
+                if (part.ContentType != contentTypeWorkbookMacroEnabled)
+                {
+                    var rels = part.GetRelationships();
+                    _package.DeletePart(uri);
+                    part = Package.CreatePart(uri, contentTypeWorkbookMacroEnabled);
+                    foreach (var rel in rels)
+                    {
+                        Package.DeleteRelationship(rel.Id);
+                        part.CreateRelationship(rel.TargetUri, rel.TargetMode, rel.RelationshipType);
+                    }
+                }
+            }
+			xmlDoc.Save(part.GetStream(FileMode.Create, FileAccess.Write));
+		}
+
         #endregion
 
 		#region Dispose

EPPlus/ExcelProtection.cs

@@ -33,6 +33,7 @@
 using System.Collections.Generic;
 using System.Text;
 using System.Xml;
+using OfficeOpenXml.Utils;
 namespace OfficeOpenXml
 {
     /// <summary>

EPPlus/ExcelRangeBase.cs

@@ -1604,19 +1604,26 @@ public ExcelRangeBase LoadFromCollection<T>(IEnumerable<T> Collection, bool Prin
                 foreach (var item in Collection)
                 {
                     col = _fromCol;
-                    foreach (var t in Members)
+                    if (item is string || item is decimal || item is DateTime || item.GetType().IsPrimitive)
                     {
-                        if (t is PropertyInfo)
-                        {
-                            _worksheet.Cells[row, col++].Value = ((PropertyInfo)t).GetValue(item, null);
-                        }
-                        else if (t is FieldInfo)
-                        {
-                            _worksheet.Cells[row, col++].Value = ((FieldInfo)t).GetValue(item);
-                        }
-                        else if (t is MethodInfo)
+                        _worksheet.Cells[row, col++].Value = item;
+                    }
+                    else
+                    {
+                        foreach (var t in Members)
                         {
-                            _worksheet.Cells[row, col++].Value = ((MethodInfo)t).Invoke(item, null);
+                            if (t is PropertyInfo)
+                            {
+                                _worksheet.Cells[row, col++].Value = ((PropertyInfo)t).GetValue(item, null);
+                            }
+                            else if (t is FieldInfo)
+                            {
+                                _worksheet.Cells[row, col++].Value = ((FieldInfo)t).GetValue(item);
+                            }
+                            else if (t is MethodInfo)
+                            {
+                                _worksheet.Cells[row, col++].Value = ((MethodInfo)t).Invoke(item, null);
+                            }
                         }
                     }
                     row++;

EPPlus/ExcelSheetProtection.cs

@@ -34,6 +34,7 @@
 using System.Text;
 using System.Xml;
 using System.Security.Cryptography;
+using OfficeOpenXml.Utils;
 
 namespace OfficeOpenXml
 {

EPPlus/ExcelStyles.cs

@@ -378,7 +378,7 @@ public ExcelNamedStyleXml CreateNamedStyle(string name, ExcelStyle Template)
         {
             if (_wb.Styles.NamedStyles.ExistsKey(name))
             {
-                throw new Exception(string.Format("Key {0} already exist in collection", name));
+                throw new Exception(string.Format("Key {0} already exists in collection", name));
             }
 
             ExcelNamedStyleXml style;