Макрос в эесель из акса 2010

Ещё раз привет всем!
подскажите в чем ошибка.Из акса делаю экспорт в эксель,после чего хочу из акса прописать макрос в эксель.делаю так:

  Set VBProj = xlBook.VBProject
          Dim LineNum As Long
          Set VBComp = VBProj.VBComponents("ThisWorkbook")
          Set CodeMod = VBComp.CodeModule
       With CodeMod
            
           LineNum = .CreateEventProc("BeforeClose", "Workbook")
          .InsertLines 2, "  fr = Cells(Rows.Count, 1).End(xlUp).Row"
          .InsertLines 3, " fc = Cells(3, Columns.Count).End(xlToLeft).Column"
          .InsertLines 4, "a = 1"
          .InsertLines 5, "For R = 5 To fr"
           .InsertLines 6, "For C = 19 To fc"
            .InsertLines 7, "If Cells(R, C) <> "" And Cells(R, C) <> "" 0 "" And Cells(3, C) <> "" Total "" Then Sheets(""Sheet1"").Cells(a, 2) = Cells(R, C): Sheets(""Sheet1"").Cells(a, 1) = Cells(R, 15): Sheets(""Sheet1"").Cells(a, 3) = Cells(1, C): Sheets(""Sheet1"").Cells(a, 4) = Cells(2, C): Sheets(""Sheet1"").Cells(a, 5) = Cells(1, 3): a = a + 1"
              .InsertLines 8, " Next"
               .InsertLines 9, " Next"
          
        End With
       
 

выдаёт ошибку:"Programmatic access to Visual Basic Project is not trusted"

в аксе 2007 все работало,вот перешли на 2010 и не работает,подскажите плиз может я что-то забыл сделать..

спасибо

ругается на первую строчку

?

Finish
?

И чему вы удивляетесь?
Код представлен не полностью - не определены переменные, не указаны подключены ли библиотеки, ...
Если действительно необходим ответ, то разумнее было бы подготовить "рыбу", или думаете кто-то будет за Вас это делать?
Скорее всего - просто "пролистают" Ваш вопрос.
Кроме того, Вы же полностью привели текст ошибки - можно было бы и в поисковиках поискать.
К примеру, вот что я нашел сходу:
Run-time error '1004' - Programmatic access to Visual Basic Project is not trusted
Run-time error ’1004′ – Programmatic access to Visual Basic Project is not trusted
Problem Programmatic access to Visual Basic Project is not trusted
...