ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Use VBA to copy macros from one workbook to another (https://www.excelbanter.com/excel-programming/410247-use-vba-copy-macros-one-workbook-another.html)

Dean@ERYC[_2_]

Use VBA to copy macros from one workbook to another
 
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.

Norman Jones[_2_]

Use VBA to copy macros from one workbook to another
 
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.



Jim Thomlinson

Use VBA to copy macros from one workbook to another
 
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.


Dean@ERYC[_2_]

Use VBA to copy macros from one workbook to another
 
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.



All times are GMT +1. The time now is 08:51 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com