but the error occurs when the VB code is locked for viewing... thats locking
it for editing too, which is what your code is trying to do.

"Aldo" wrote in message
...
Hi,
I do not intend to change the password. I am the one who set up the
password.
I said that, when running the macro (from Excel) while the VBA editor is
closed and password protected, I get the error...
Thanks.


"JLGWhiz" wrote:

If you want to access the VB Project by code, you will need to unprotect
it.
The whole purpose of the lock VB code for viewing is to prevent changes.
You cannot remove the password protection with code.


"Aldo" wrote in message
...
Hi guys,
I am trying to use the following block of code to insert a function in
a
worksheet.
If the VBA Project is not protected, the macro runs just fine, but when
locking the project for viewing, I get the following error:
"Run-time Error 50289 - Can't perform operation since the project is
protected"
How can I work it around?
Thanks in advance,
Aldo.

Function CreateProcedureForIndex(Optional wksName As String, Optional
eventName As String, Optional objectName As String)
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long

Const DQUOTE = """" 'one " character
Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents(Sheets(wksName).CodeName)
Set CodeMod = VBComp.CodeModule

With CodeMod
LineNum = LineNum + 1: .InsertLines LineNum, "Option Explicit"
LineNum = .CreateEventProc(eventName, objectName) ' + 1
LineNum = LineNum + 1: .InsertLines LineNum, " If
Cells(Target.row, Target.Column + 1).Value = ""Chart Sheet"" Then"
LineNum = LineNum + 1: .InsertLines LineNum, "
Charts(Target.Value).Activate"
LineNum = LineNum + 1: .InsertLines LineNum, " End if"
End With
End Function