/// <summary>
/// Create a new VBA Project
/// </summary>
internal void Create()
{
if (Lcid > 0)
{
throw (new InvalidOperationException("Package already contains a VBAProject"));
}
ProjectID = "{5DD90D76-4904-47A2-AF0D-D69B4673604E}";
Name = "VBAProject";
SystemKind = eSyskind.Win32; //Default
Lcid = 1033; //English - United States
LcidInvoke = 1033; //English - United States
CodePage = Encoding.GetEncoding(0).CodePage; //Switched from Default to make it work in Core
MajorVersion = 1361024421;
MinorVersion = 6;
HelpContextID = 0;
Modules.Add(new ExcelVBAModule(_wb.CodeNameChange)
{
Name = "ThisWorkbook", Code = "", Attributes = GetDocumentAttributes("ThisWorkbook", "0{00020819-0000-0000-C000-000000000046}"), Type = eModuleType.Document, HelpContext = 0
});
foreach (var sheet in _wb.Worksheets)
{
var name = GetModuleNameFromWorksheet(sheet);
if (!Modules.Exists(name))
{
Modules.Add(new ExcelVBAModule(sheet.CodeNameChange)
{
Name = name, Code = "", Attributes = GetDocumentAttributes(sheet.Name, "0{00020820-0000-0000-C000-000000000046}"), Type = eModuleType.Document, HelpContext = 0
});
}
}
_protection = new ExcelVbaProtection(this)
{
UserProtected = false, HostProtected = false, VbeProtected = false, VisibilityState = true
};
}
private void ReadProjectProperties()
{
_protection = new ExcelVbaProtection(this);
string prevPackage = "";
var lines = Regex.Split(ProjectStreamText, "\r\n");
foreach (string line in lines)
{
if (line.StartsWith("["))
{
}
else
{
var split = line.Split('=');
if (split.Length > 1 && split[1].Length > 1 && split[1].StartsWith("\"")) //Remove any double qouates
{
split[1] = split[1].Substring(1, split[1].Length - 2);
}
switch (split[0])
{
case "ID":
ProjectID = split[1];
break;
case "Document":
string mn = split[1].Substring(0, split[1].IndexOf("/&H"));
Modules[mn].Type = eModuleType.Document;
break;
case "Package":
prevPackage = split[1];
break;
case "BaseClass":
Modules[split[1]].Type = eModuleType.Designer;
Modules[split[1]].ClassID = prevPackage;
break;
case "Module":
Modules[split[1]].Type = eModuleType.Module;
break;
case "Class":
Modules[split[1]].Type = eModuleType.Class;
break;
case "HelpFile":
case "Name":
case "HelpContextID":
case "Description":
case "VersionCompatible32":
break;
//393222000"
case "CMG":
byte[] cmg = Decrypt(split[1]);
_protection.UserProtected = (cmg[0] & 1) != 0;
_protection.HostProtected = (cmg[0] & 2) != 0;
_protection.VbeProtected = (cmg[0] & 4) != 0;
break;
case "DPB":
byte[] dpb = Decrypt(split[1]);
if (dpb.Length >= 28)
{
byte reserved = dpb[0];
var flags = new byte[3];
Array.Copy(dpb, 1, flags, 0, 3);
var keyNoNulls = new byte[4];
_protection.PasswordKey = new byte[4];
Array.Copy(dpb, 4, keyNoNulls, 0, 4);
var hashNoNulls = new byte[20];
_protection.PasswordHash = new byte[20];
Array.Copy(dpb, 8, hashNoNulls, 0, 20);
//Handle 0x00 bitwise 2.4.4.3
for (int i = 0; i < 24; i++)
{
int bit = 128 >> (int)((i % 8));
if (i < 4)
{
if ((int)(flags[0] & bit) == 0)
{
_protection.PasswordKey[i] = 0;
}
else
{
_protection.PasswordKey[i] = keyNoNulls[i];
}
}
else
{
int flagIndex = (i - i % 8) / 8;
if ((int)(flags[flagIndex] & bit) == 0)
{
_protection.PasswordHash[i - 4] = 0;
}
else
{
_protection.PasswordHash[i - 4] = hashNoNulls[i - 4];
}
}
}
}
break;
case "GC":
_protection.VisibilityState = Decrypt(split[1])[0] == 0xFF;
break;
}
}
}
}
/// <summary>
/// Create a new VBA Project
/// </summary>
internal void Create()
{
if(Lcid>0)
{
throw (new InvalidOperationException("Package already contains a VBAProject"));
}
ProjectID = "{5DD90D76-4904-47A2-AF0D-D69B4673604E}";
Name = "VBAProject";
SystemKind = eSyskind.Win32; //Default
Lcid = 1033; //English - United States
LcidInvoke = 1033; //English - United States
CodePage = Encoding.Default.CodePage;
MajorVersion = 1361024421;
MinorVersion = 6;
HelpContextID = 0;
Modules.Add(new ExcelVBAModule(_wb.CodeNameChange) { Name = "ThisWorkbook", Code = "", Attributes=GetDocumentAttributes("ThisWorkbook", "0{00020819-0000-0000-C000-000000000046}"), Type = eModuleType.Document, HelpContext = 0 });
foreach (var sheet in _wb.Worksheets)
{
if (!Modules.Exists(sheet.Name))
{
Modules.Add(new ExcelVBAModule(sheet.CodeNameChange) { Name = sheet.Name, Code = "", Attributes = GetDocumentAttributes(sheet.Name, "0{00020820-0000-0000-C000-000000000046}"), Type = eModuleType.Document, HelpContext = 0 });
}
}
_protection = new ExcelVbaProtection(this) { UserProtected = false, HostProtected = false, VbeProtected = false, VisibilityState = true };
}
private void ReadProjectProperties()
{
_protection = new ExcelVbaProtection(this);
string prevPackage = "";
var lines = Regex.Split(ProjectStreamText, "\r\n");
foreach (string line in lines)
{
if (line.StartsWith("["))
{
}
else
{
var split = line.Split('=');
if (split.Length > 1 && split[1].Length > 1 && split[1].StartsWith("\"")) //Remove any double qouates
{
split[1] = split[1].Substring(1, split[1].Length - 2);
}
switch (split[0])
{
case "ID":
ProjectID = split[1];
break;
case "Document":
string mn = split[1].Substring(0, split[1].IndexOf("/&H"));
Modules[mn].Type = eModuleType.Document;
break;
case "Package":
prevPackage = split[1];
break;
case "BaseClass":
Modules[split[1]].Type = eModuleType.Designer;
Modules[split[1]].ClassID = prevPackage;
break;
case "Module":
Modules[split[1]].Type = eModuleType.Module;
break;
case "Class":
Modules[split[1]].Type = eModuleType.Class;
break;
case "HelpFile":
case "Name":
case "HelpContextID":
case "Description":
case "VersionCompatible32":
break;
//393222000"
case "CMG":
byte[] cmg = Decrypt(split[1]);
_protection.UserProtected = (cmg[0] & 1) != 0;
_protection.HostProtected = (cmg[0] & 2) != 0;
_protection.VbeProtected = (cmg[0] & 4) != 0;
break;
case "DPB":
byte[] dpb = Decrypt(split[1]);
if (dpb.Length >= 28)
{
byte reserved = dpb[0];
var flags = new byte[3];
Array.Copy(dpb, 1, flags, 0, 3);
var keyNoNulls = new byte[4];
_protection.PasswordKey = new byte[4];
Array.Copy(dpb, 4, keyNoNulls, 0, 4);
var hashNoNulls = new byte[20];
_protection.PasswordHash = new byte[20];
Array.Copy(dpb, 8, hashNoNulls, 0, 20);
//Handle 0x00 bitwise 2.4.4.3
for (int i = 0; i < 24; i++)
{
int bit = 128 >> (int)((i % 8));
if (i < 4)
{
if ((int)(flags[0] & bit) == 0)
{
_protection.PasswordKey[i] = 0;
}
else
{
_protection.PasswordKey[i] = keyNoNulls[i];
}
}
else
{
int flagIndex = (i - i % 8) / 8;
if ((int)(flags[flagIndex] & bit) == 0)
{
_protection.PasswordHash[i - 4] = 0;
}
else
{
_protection.PasswordHash[i - 4] = hashNoNulls[i - 4];
}
}
}
}
break;
case "GC":
_protection.VisibilityState = Decrypt(split[1])[0] == 0xFF;
break;
}
}
}
}
/// <summary>
/// Create a new VBA Project
/// </summary>
internal void Create()
{
if(Lcid>0)
{
throw (new InvalidOperationException("Package already contains a VBAProject"));
}
ProjectID = "{5DD90D76-4904-47A2-AF0D-D69B4673604E}";
Name = "VBAProject";
SystemKind = eSyskind.Win32; //Default
Lcid = 1033; //English - United States
LcidInvoke = 1033; //English - United States
CodePage = Encoding.Default.CodePage;
MajorVersion = 1361024421;
MinorVersion = 6;
HelpContextID = 0;
Modules.Add(new ExcelVBAModule(_wb.CodeNameChange) { Name = "ThisWorkbook", Code = "", Attributes=GetDocumentAttributes("ThisWorkbook", "0{00020819-0000-0000-C000-000000000046}"), Type = eModuleType.Document, HelpContext = 0 });
foreach (var sheet in _wb.Worksheets)
{
if (!Modules.Exists(sheet.Name))
{
Modules.Add(new ExcelVBAModule(sheet.CodeNameChange) { Name = sheet.Name, Code = "", Attributes = GetDocumentAttributes(sheet.Name, "0{00020820-0000-0000-C000-000000000046}"), Type = eModuleType.Document, HelpContext = 0 });
}
}
//References.Add(new ExcelVbaReference() { Name = "stdole", Libid = "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\SysWOW64\\stdole2.tlb#OLE Automation", ReferenceRecordID = 13 });
//References.Add(new ExcelVbaReference() { Name = "Office", Libid = "*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files (x86)\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL#Microsoft Office 12.0 Object Library", ReferenceRecordID = 13 });
_protection = new ExcelVbaProtection(this) { UserProtected = false, HostProtected = false, VbeProtected = false, VisibilityState = true };
//References.Add(new ExcelVbaReferenceControl()
//{
// Name = "MSForms",
// Libid = "*\\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\\Windows\\System32\\FM20.DLL#Microsoft Forms 2.0 Object Library",
// LibIdExternal = "*\\G{75A950D8-F976-4F2D-B7DA-E961BA02257E}#2.0#0#MSForms.exd#Microsoft Forms 2.0 Object Library",
// LibIdTwiddled = "*\\G{00000000-0000-0000-0000-000000000000}#0.0#0##",
// OriginalTypeLib=new Guid("0d452ee1-e08f-101a-852e-02608c4d0bb4"),
// Cookie=1,
// ReferenceRecordID=47
//});
}