blob: ab2f3ecd0f0be7fa18e19c3bc79fd149718add27 [file] [log] [blame]
/*******************************************************************************
* You may amend and distribute as you like, but don't remove this header!
*
* All rights reserved.
*
* EPPlus is an Open Source project provided under the
* GNU General Public License (GPL) as published by the
* Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* EPPlus provides server-side generation of Excel 2007 spreadsheets.
* See http://www.codeplex.com/EPPlus for details.
*
*
*
* The GNU General Public License can be viewed at http://www.opensource.org/licenses/gpl-license.php
* If you unfamiliar with this license or have questions about it, here is an http://www.gnu.org/licenses/gpl-faq.html
*
* The code for this project may be used and redistributed by any means PROVIDING it is
* not sold for profit without the author's written consent, and providing that this notice
* and the author's name and all copyright notices remain intact.
*
* All code and executables are provided "as is" with no warranty either express or implied.
* The author accepts no liability for any damage or loss of business that this product may cause.
*
*
* Code change notes:
*
* Author Change Date
*******************************************************************************
* Jan Källman Added 28 Oct 2010
*******************************************************************************/
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using OfficeOpenXml;
using System.Drawing;
using OfficeOpenXml.Style;
namespace EPPlusSamples
{
public static class Sample10
{
public static void RunSample10(DirectoryInfo outputDir)
{
//Create a Sample10 directory...
if(!Directory.Exists(outputDir.FullName + @"\Sample10"))
{
outputDir.CreateSubdirectory("Sample10");
}
outputDir=new DirectoryInfo(outputDir + @"\Sample10");
//create the three FileInfo objects...
FileInfo templateFile = new FileInfo(outputDir.FullName + @"\Template.xlsx");
if (templateFile.Exists)
{
templateFile.Delete();
templateFile = new FileInfo(outputDir.FullName + @"\Template.xlsx");
}
FileInfo answerFile = new FileInfo(outputDir.FullName + @"\Answers.xlsx");
if (answerFile.Exists)
{
answerFile.Delete();
answerFile = new FileInfo(outputDir.FullName + @"\Answers.xlsx");
}
FileInfo JKAnswerFile = new FileInfo(outputDir.FullName + @"\JKAnswers.xlsx");
if (JKAnswerFile.Exists)
{
JKAnswerFile.Delete();
JKAnswerFile = new FileInfo(outputDir.FullName + @"\JKAnswers.xlsx");
}
//Create the template...
using (
ExcelPackage package = new ExcelPackage(templateFile))
{
//Lock the workbook totally
var workbook = package.Workbook;
workbook.Protection.LockWindows = true;
workbook.Protection.LockStructure = true;
workbook.View.SetWindowSize(150, 525, 14500, 6000);
workbook.View.ShowHorizontalScrollBar = false;
workbook.View.ShowVerticalScrollBar = false;
workbook.View.ShowSheetTabs = false;
//Set a password for the workbookprotection
workbook.Protection.SetPassword("EPPlus");
//Encrypt with no password
package.Encryption.IsEncrypted = true;
var sheet = package.Workbook.Worksheets.Add("Quiz");
sheet.View.ShowGridLines = false;
sheet.View.ShowHeaders = false;
using(var range=sheet.Cells["A:XFD"])
{
range.Style.Fill.PatternType=ExcelFillStyle.Solid;
range.Style.Fill.BackgroundColor.SetColor(Color.LightGray);
range.Style.Font.Name = "Broadway";
range.Style.Hidden = true;
}
sheet.Cells["A1"].Value = "Quiz-Sweden";
sheet.Cells["A1"].Style.Font.Size = 18;
sheet.Cells["A3"].Value = "Enter your name:";
sheet.Column(1).Width = 30;
sheet.Column(2).Width = 80;
sheet.Column(3).Width = 20;
sheet.Cells["A7"].Value = "What is the name of the capital of Sweden?";
sheet.Cells["A9"].Value = "At which place did the Swedish team end up in the Soccer Worldcup 1994?";
sheet.Cells["A11"].Value = "What is the first name of the famous Swedish inventor/scientist that founded the Nobel-prize?";
using (var r = sheet.Cells["B3,C7,C9,C11"])
{
r.Style.Fill.BackgroundColor.SetColor(Color.WhiteSmoke);
r.Style.Border.Top.Style = ExcelBorderStyle.Dotted;
r.Style.Border.Top.Color.SetColor(Color.Black);
r.Style.Border.Right.Style = ExcelBorderStyle.Dotted;
r.Style.Border.Right.Color.SetColor(Color.Black);
r.Style.Border.Bottom.Style = ExcelBorderStyle.Dotted;
r.Style.Border.Bottom.Color.SetColor(Color.Black);
r.Style.Border.Left.Style = ExcelBorderStyle.Dotted;
r.Style.Border.Left.Color.SetColor(Color.Black);
r.Style.Locked = false;
r.Style.Hidden = false;
r.Style.HorizontalAlignment = ExcelHorizontalAlignment.Center;
}
sheet.Select("B3");
sheet.Protection.SetPassword("EPPlus");
sheet.Protection.AllowSelectLockedCells = false;
//Options question 1
var list1 = sheet.Cells["C7"].DataValidation.AddListDataValidation();
list1.Formula.Values.Add("Bern");
list1.Formula.Values.Add("Stockholm");
list1.Formula.Values.Add("Oslo");
list1.ShowErrorMessage = true;
list1.Error = "Please select a value from the list";
var list2 = sheet.Cells["C9"].DataValidation.AddListDataValidation();
list2.Formula.Values.Add("First");
list2.Formula.Values.Add("Second");
list2.Formula.Values.Add("Third");
list2.ShowErrorMessage = true;
list2.Error = "Please select a value from the list";
var list3 = sheet.Cells["C11"].DataValidation.AddListDataValidation();
list3.Formula.Values.Add("Carl Gustaf");
list3.Formula.Values.Add("Ingmar");
list3.Formula.Values.Add("Alfred");
list3.ShowErrorMessage = true;
list3.Error = "Please select a value from the list";
//Save, and the template is ready for use
package.Save();
//Quiz-template is done, now create the answer template and encrypt it...
using (var packageAnswers = new ExcelPackage(package.Stream)) //We use the stream from the template here to get a copy of it.
{
var sheetAnswers = packageAnswers.Workbook.Worksheets[1];
sheetAnswers.Cells["C7"].Value = "Stockholm";
sheetAnswers.Cells["C9"].Value = "Third";
sheetAnswers.Cells["C11"].Value = "Alfred";
packageAnswers.Encryption.Algorithm = EncryptionAlgorithm.AES192; //For the answers we want a little bit stronger encryption
packageAnswers.SaveAs(answerFile, "EPPlus"); //Save and set the password to EPPlus. The password can also be set using packageAnswers.Encryption.Password property
}
//Ok, Since this is qan example we create one user answer...
using (var packageAnswers = new ExcelPackage(package.Stream))
{
var sheetUser = packageAnswers.Workbook.Worksheets[1];
sheetUser.Cells["B3"].Value = "Jan Källman";
sheetUser.Cells["C7"].Value = "Bern";
sheetUser.Cells["C9"].Value = "Third";
sheetUser.Cells["C11"].Value = "Alfred";
packageAnswers.SaveAs(JKAnswerFile, "JK"); //We use default encryption here (AES128) and Password JK
}
}
//Now lets correct the user form...
var packAnswers = new ExcelPackage(answerFile, "EPPlus"); //Supply the password, so the file can be decrypted
var packUser = new ExcelPackage(JKAnswerFile, "JK"); //Supply the password, so the file can be decrypted
var wsAnswers = packAnswers.Workbook.Worksheets[1];
var wsUser = packUser.Workbook.Worksheets[1];
//Enumerate the three answers
foreach (var cell in wsAnswers.Cells["C7,C9,C11"])
{
wsUser.Cells[cell.Address].Style.Fill.PatternType = ExcelFillStyle.Solid;
if (cell.Value.ToString().Equals(wsUser.Cells[cell.Address].Value.ToString(), StringComparison.InvariantCultureIgnoreCase)) //Correct Answer?
{
wsUser.Cells[cell.Address].Style.Fill.BackgroundColor.SetColor(Color.Green);
}
else
{
wsUser.Cells[cell.Address].Style.Fill.BackgroundColor.SetColor(Color.Red);
}
}
packUser.Save();
}
}
}