Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding "WorkbookOpen" Code Programmatically | Excel Programming | |||
adding code to a workbook programmably | Excel Programming | |||
How to programmatically access sheets in a workbook by code name | Excel Programming | |||
Adding Code to the This_workbook module of a created workbook | Excel Programming | |||
Adding Code Module to Workbook | Excel Programming |