IS - ScriptTask - Protective Excel

I have fallen in to a scenario where i needed to create multiple Excel data files  from a source.   This task i was enjoyed doing. Because of a Script Task which is totally on creation of Protetctive Excel sheets, Locking some columns and coloring required column cells. I thought it is a good project to share with you all.
--> Source DB: Adventureworks database
--> Table that i would like to split in to multiple ExcelSeets:
--> Create multiple Excel sheets bassed on distinct Item. ex: File name will be like :   Item_20101105.xls

Option Strict Off
Option Explicit On
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime

Public Class ScriptMain
Public Sub Main()

Dim xlApp As Object

Dim xlBook As Object

Dim xlWorkSheet As Object

Dim objRange As Object

Dim strExcelFile As String

Dim fullfilename As String

Dim ClientName, CurrentDate, SchoolOPEID As String

ClientName = CStr(Dts.Variables("ClientName").Value)

CurrentDate = CStr(Dts.Variables("CurrentDate").Value)

SchoolOPEID = CStr(Dts.Variables("SchoolID").Value)

fullfilename = ClientName + "_NewPlace_" + CurrentDate + "_" + SchoolID + ".xls"

Try

strExcelFile = "C:FlatFileSource\" + fullfilename

xlApp = CreateObject("Excel.Application")

xlBook = xlApp.Workbooks.Open(strExcelFile)

If WorksheetExists(xlBook, "Excel_Destination") Then

xlWorkSheet = xlBook.Sheets("Excel_Destination")

' Color and format title row

objRange = xlWorkSheet.Range("A1", "BW1")

objRange.Font.Size = 11

objRange.Font.Bold = True

objRange.Interior.ColorIndex = 16

objRange.Font.ColorIndex = 1

'Adjust titles to show up

objRange.EntireColumn.Autofit()

'Color required field using following code.

' Dim myCount As Integer

' myCount = xlWorkSheet.UsedRange.Rows.Count

Const xlEdgeLeft = 7

Const xlContinuous = 1

Const xlAutomatic = -4105

Const xlThin = 2

Const xlGray16 = 17

Const xlHairline = 1

objRange = xlWorkSheet.Range("E1:K1", "E65535:K65535")

'objRange.Interior.ColorIndex = 3

objRange.Borders.LineStyle = xlContinuous

objRange.Borders.ColorIndex = 3

objRange.Borders.Weight = xlThin

xlWorkSheet.Columns("AI:AI").NumberFormat = "0,#"

objRange = xlWorkSheet.Range("BX:ET", "BX65535:ET65535")

objRange.Columns.Delete()

' Following will lock all columns except specified.

xlWorkSheet.Unprotect()

Dim strmypassword

xlWorkSheet.Protection.AllowEditRanges.Add("FirstSet", xlWorkSheet.Columns("E:AP"))

xlWorkSheet.Protection.AllowEditRanges.Add("SecondSet", xlWorkSheet.Columns("BE"))

xlWorkSheet.Protect(strmypassword)

xlBook.Save()

End If

Catch e As Exception

MsgBox("ERROR:" & e.ToString, MsgBoxStyle.Critical)

Finally

If Not xlBook Is Nothing Then

xlBook.Close()

xlBook = Nothing

End If

If Not xlApp Is Nothing Then

xlApp.Quit()

xlApp = Nothing

End If

End Try

Dts.TaskResult = Dts.Results.Success

End Sub

Function WorksheetExists(ByRef xlWorkbook As Object, ByVal strWorksheetName As String) As Boolean

Dim xlWorksheet As Object

If xlWorkbook Is Nothing Then

WorksheetExists = False

Else

xlWorksheet = xlWorkbook.Sheets(strWorksheetName)

WorksheetExists = Not xlWorksheet Is Nothing

End If

End Function

End Class