Tilføj kode til Workbook_Open (Excel 2007 + Interop 12.0)

Hej.

Jeg opretter et Excel dokument og fylder data i den fra C#, og ville så gerne låse specifikke celler.

Det er også lykkes, men samtidig bliver Outlining slået fra, hvilket er lidt uheldigt.

Har så fundet ud af at jeg skal tilføje følgende linje kode til excel-filens "ThisWorkBook":

Option Explicit
Sub Workbook_Open()

Dim SH As Worksheet

For Each SH In ThisWorkbook.Worksheets

With SH
.EnableOutlining = True
.Protect Password:="12345", _
Contents:=True, _
UserInterfaceOnly:=True
End With

Next SH

End Sub

Men kan ikke rigtig få fat i "ThisWorkBook" igennem theWorkbook.VBProject.VBComponents ligesom de fleste skriver!


Hvordan tilføjer jeg koden? Eller det muligt at gøre det på en anden måde?


Overvejer lidt om det er pga. at det er Excel 2007 og Interop.Excel 12.0.


På forhånd tak
Scorp-D