I have a 'master' workbook which opens other 'Data' workbooks and does
various calculations/data validations on these workbooks. Before saving the
'Data' workbooks a Module from the master containing several macros is copied
across to the 'Data' spreadsheet. The code below works in Excel 2000 but not
in 2003.

It displays an error:
Run-time error '1004':
Programmatic access to Visual Basic Project is not trusted

'copy macro to validated wookbook
Dim FName As String
With Workbooks("TEAMS_Master.xls")
FName = .Path & "\code.txt"
.VBProject.VBComponents("Module9").Export FName
End With
Workbooks("IDBev.xls").VBProject.VBComponents.Impo rt FName

Thanks for your help,
Dean.

Hi Dean,

Try:

Tools | Macro | Security |Trusted Publisher Tab
[x] Trust access to Visual Basic Project



---
Regards.
Norman
"Dean@ERYC" wrote in message
...
I have a 'master' workbook which opens other 'Data' workbooks and does
various calculations/data validations on these workbooks. Before saving
the
'Data' workbooks a Module from the master containing several macros is
copied
across to the 'Data' spreadsheet. The code below works in Excel 2000 but
not
in 2003.

It displays an error:
Run-time error '1004':
Programmatic access to Visual Basic Project is not trusted

'copy macro to validated wookbook
Dim FName As String
With Workbooks("TEAMS_Master.xls")
FName = .Path & "\code.txt"
.VBProject.VBComponents("Module9").Export FName
End With
Workbooks("IDBev.xls").VBProject.VBComponents.Impo rt FName

Thanks for your help,
Dean.

Starting in XL2002 the idea of trusted sources for macros began. In XL 2003
select Tools - Macros - Security - Trusted Sources and check Trust Access
to Visual Basic Project.
--
HTH...

Jim Thomlinson


"Dean@ERYC" wrote:

I have a 'master' workbook which opens other 'Data' workbooks and does
various calculations/data validations on these workbooks. Before saving the
'Data' workbooks a Module from the master containing several macros is copied
across to the 'Data' spreadsheet. The code below works in Excel 2000 but not
in 2003.

It displays an error:
Run-time error '1004':
Programmatic access to Visual Basic Project is not trusted

'copy macro to validated wookbook
Dim FName As String
With Workbooks("TEAMS_Master.xls")
FName = .Path & "\code.txt"
.VBProject.VBComponents("Module9").Export FName
End With
Workbooks("IDBev.xls").VBProject.VBComponents.Impo rt FName

Thanks for your help,
Dean.

Thanks for your quick reply, - It's nice when it't something so simple! I had
visions of having to recode half of the 10,000 lines in the workbook!!

Thanks, Dean.

"Jim Thomlinson" wrote:

Starting in XL2002 the idea of trusted sources for macros began. In XL 2003
select Tools - Macros - Security - Trusted Sources and check Trust Access
to Visual Basic Project.
--
HTH...

Jim Thomlinson


"Dean@ERYC" wrote:

I have a 'master' workbook which opens other 'Data' workbooks and does
various calculations/data validations on these workbooks. Before saving the
'Data' workbooks a Module from the master containing several macros is copied
across to the 'Data' spreadsheet. The code below works in Excel 2000 but not
in 2003.

It displays an error:
Run-time error '1004':
Programmatic access to Visual Basic Project is not trusted

'copy macro to validated wookbook
Dim FName As String
With Workbooks("TEAMS_Master.xls")
FName = .Path & "\code.txt"
.VBProject.VBComponents("Module9").Export FName
End With
Workbooks("IDBev.xls").VBProject.VBComponents.Impo rt FName

Thanks for your help,
Dean.