Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Project Error
I am trying to update a macro with a macro this is the error that I received:
"Programmatic access to Visual Basic is not trusted" Any assistance will be greatly appreciated. Thanks! Here are the codes: Sub Patch_2() 'Change Import Module Line 80, Column 63 from "16" to "15" Dim MPivot As Range Dim CurrBook As Workbook, FName As String, FPW As String Dim iBook As Integer, InsertItem As String Dim FileProject As Object, FileModule As CodeModule Set MPivot = ThisWorkbook.Sheets("D").[A8] InsertItem = " MPivot.Offset(iInc, 15) = IPivot.Offset(iImport, 15) 'Eligibility" iBook = 1 Do While IsEmpty(MPivot.Offset(iBook, 0)) = False FName = ThisWorkbook.Sheets("D").[A3] & MPivot.Offset(iBook, 0) FPW = MPivot.Offset(iBook, 2) Set CurrBook = Workbooks.Open(Filename:=FName, Password:=FPW) Set FileProject = CurrBook.VBProject Set FileModule = CurrBook.VBProject.VBComponents("M_Import") FileModule.DeleteLines 80, 1 FileModule.InsertLines 80, InsertItem iBook = iBook + 1 Set CurrBook = Nothing Set MPivot = Nothing Set FileModule = Nothing Loop End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Project Error
In tools=Macros=Security, go to the Trusted tab and make sure the checkbox
in the lower left corner (trust access to visual basic project) is checked. -- Regards, Tom Ogilvy "Anson" wrote in message ... I am trying to update a macro with a macro this is the error that I received: "Programmatic access to Visual Basic is not trusted" Any assistance will be greatly appreciated. Thanks! Here are the codes: Sub Patch_2() 'Change Import Module Line 80, Column 63 from "16" to "15" Dim MPivot As Range Dim CurrBook As Workbook, FName As String, FPW As String Dim iBook As Integer, InsertItem As String Dim FileProject As Object, FileModule As CodeModule Set MPivot = ThisWorkbook.Sheets("D").[A8] InsertItem = " MPivot.Offset(iInc, 15) = IPivot.Offset(iImport, 15) 'Eligibility" iBook = 1 Do While IsEmpty(MPivot.Offset(iBook, 0)) = False FName = ThisWorkbook.Sheets("D").[A3] & MPivot.Offset(iBook, 0) FPW = MPivot.Offset(iBook, 2) Set CurrBook = Workbooks.Open(Filename:=FName, Password:=FPW) Set FileProject = CurrBook.VBProject Set FileModule = CurrBook.VBProject.VBComponents("M_Import") FileModule.DeleteLines 80, 1 FileModule.InsertLines 80, InsertItem iBook = iBook + 1 Set CurrBook = Nothing Set MPivot = Nothing Set FileModule = Nothing Loop End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Project Error
Hi
in Excel goto 'Tools - Macros - Security' and on the second tab allow access to the VBA projects -- Regards Frank Kabel Frankfurt, Germany Anson wrote: I am trying to update a macro with a macro this is the error that I received: "Programmatic access to Visual Basic is not trusted" Any assistance will be greatly appreciated. Thanks! Here are the codes: Sub Patch_2() 'Change Import Module Line 80, Column 63 from "16" to "15" Dim MPivot As Range Dim CurrBook As Workbook, FName As String, FPW As String Dim iBook As Integer, InsertItem As String Dim FileProject As Object, FileModule As CodeModule Set MPivot = ThisWorkbook.Sheets("D").[A8] InsertItem = " MPivot.Offset(iInc, 15) = IPivot.Offset(iImport, 15) 'Eligibility" iBook = 1 Do While IsEmpty(MPivot.Offset(iBook, 0)) = False FName = ThisWorkbook.Sheets("D").[A3] & MPivot.Offset(iBook, 0) FPW = MPivot.Offset(iBook, 2) Set CurrBook = Workbooks.Open(Filename:=FName, Password:=FPW) Set FileProject = CurrBook.VBProject Set FileModule = CurrBook.VBProject.VBComponents("M_Import") FileModule.DeleteLines 80, 1 FileModule.InsertLines 80, InsertItem iBook = iBook + 1 Set CurrBook = Nothing Set MPivot = Nothing Set FileModule = Nothing Loop End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Project Error
Hi Anson
See http://www.j-walk.com/ss/excel/tips/tip96.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Anson" wrote in message ... I am trying to update a macro with a macro this is the error that I received: "Programmatic access to Visual Basic is not trusted" Any assistance will be greatly appreciated. Thanks! Here are the codes: Sub Patch_2() 'Change Import Module Line 80, Column 63 from "16" to "15" Dim MPivot As Range Dim CurrBook As Workbook, FName As String, FPW As String Dim iBook As Integer, InsertItem As String Dim FileProject As Object, FileModule As CodeModule Set MPivot = ThisWorkbook.Sheets("D").[A8] InsertItem = " MPivot.Offset(iInc, 15) = IPivot.Offset(iImport, 15) 'Eligibility" iBook = 1 Do While IsEmpty(MPivot.Offset(iBook, 0)) = False FName = ThisWorkbook.Sheets("D").[A3] & MPivot.Offset(iBook, 0) FPW = MPivot.Offset(iBook, 2) Set CurrBook = Workbooks.Open(Filename:=FName, Password:=FPW) Set FileProject = CurrBook.VBProject Set FileModule = CurrBook.VBProject.VBComponents("M_Import") FileModule.DeleteLines 80, 1 FileModule.InsertLines 80, InsertItem iBook = iBook + 1 Set CurrBook = Nothing Set MPivot = Nothing Set FileModule = Nothing Loop End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBE Error (Project unviewable) | Excel Worksheet Functions | |||
Can't Find Project or Library Error | Excel Discussion (Misc queries) | |||
Excell error "Can't find Project or Library" Project VBAProject | Excel Worksheet Functions | |||
can't find project or library - error | New Users to Excel | |||
help with this error-Compile error: cant find project or library | Excel Discussion (Misc queries) |