Programmatically Adding Code to a Workbook
 

I also tried:
Set VBCodeMod = Wb.VBProject.VBComponents("ThisWorkBook").CodeModu le
With VBCodeMod
StartLine = .CountOfLines + 1
.InsertLines StartLine, _
"Private Sub Workbook_Open()" & Chr(13) & _
" ThisWorkbook.Sheets(1).EnableSelection = xlUnlockedCells" &
Chr(13) & _
"End Sub"
End With
And got the same results, code added to workbook, but Excel crashed.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org


"Tom Ogilvy" wrote:

http://www.cpearson.com/excel/vbe.htm

has all the info. Note that the security setting must allow programmatic
access to the VBE.

Tools=Macro=Security then Trusted Publishers tab. checkbox at the bottom
--
Regards,
Tom Ogilvy


"Chaplain Doug" wrote:

Excel 2003. As I create new workbooks, I wish to place the following code
into the workbook:

Private Sub Workbook_Open()
ThisWorkbook.Sheets(1).EnableSelection = xlUnlockedCells
End Sub

How can I do this programmatically?

The reason I need to do this is because as I create the new workbook, I am
copying in a single sheet (Sheets(1)) which is protected and which has only
certin cells unlocked. I only want the user to be able to select the
unlocked cells. Although the EnableSelection=xlUnlockedCells is set in the
original, it does not carry over on the copy. Thus, the need for the
Workbook_Open routine to reset it. Thanks for the help.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org