ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Changeing codename of worksheet via VBComponents collection (https://www.excelbanter.com/excel-programming/334372-changeing-codename-worksheet-via-vbcomponents-collection.html)

Arne

Changeing codename of worksheet via VBComponents collection
 
I wrote an add-in for Excel-2000 containing the following code

Dim wks As Worksheet

For Each wks In TheWorkbook.Worksheets
If (wks.Index 1) And (wks.Index < TheWorkbook.Worksheets.Count) Then

TheWorkbook.VBProject.VBComponents(wks.CodeName).P roperties("_CodeName") = _
"U" & wks.Index
End If
Next wks

This used to work. We have switched to Windows XP and Office 2003 (Small
business ed. SP2), and now I get an error (#1004), which reads (translated
from dutch): "Access to Visual Basic project at programming level
unreliable". Is it correct that access to this 'back door' to change the
worksheet code name has been changed in the transition to Excel 2003? Is
there a way to achieve the name change in another way?

Bob Phillips[_7_]

Changeing codename of worksheet via VBComponents collection
 
Excel 2002 has a new macro security that you need to "approve" to perform
VBA manipulation of VBProject objects.

To set this,
choose Tools/Macro/Security from the Excel menu,
select the Trusted Sources tab
put a check in the checkbox called "Trust Access to Visual Basic Project".


--
HTH

Bob Phillips

"Arne" wrote in message
...
I wrote an add-in for Excel-2000 containing the following code

Dim wks As Worksheet

For Each wks In TheWorkbook.Worksheets
If (wks.Index 1) And (wks.Index < TheWorkbook.Worksheets.Count)

Then

TheWorkbook.VBProject.VBComponents(wks.CodeName).P roperties("_CodeName") =

_
"U" & wks.Index
End If
Next wks

This used to work. We have switched to Windows XP and Office 2003 (Small
business ed. SP2), and now I get an error (#1004), which reads (translated
from dutch): "Access to Visual Basic project at programming level
unreliable". Is it correct that access to this 'back door' to change the
worksheet code name has been changed in the transition to Excel 2003? Is
there a way to achieve the name change in another way?




Arne

Changeing codename of worksheet via VBComponents collection
 
Aha, I see. Clearly, 'unreliable' was the wrong translation, as it has to do
with trustworthiness. Anyway, this solves the problem. Thank you very much!

"Bob Phillips" wrote:

Excel 2002 has a new macro security that you need to "approve" to perform
VBA manipulation of VBProject objects.

To set this,
choose Tools/Macro/Security from the Excel menu,
select the Trusted Sources tab
put a check in the checkbox called "Trust Access to Visual Basic Project".


--
HTH

Bob Phillips

"Arne" wrote in message
...
I wrote an add-in for Excel-2000 containing the following code

Dim wks As Worksheet

For Each wks In TheWorkbook.Worksheets
If (wks.Index 1) And (wks.Index < TheWorkbook.Worksheets.Count)

Then

TheWorkbook.VBProject.VBComponents(wks.CodeName).P roperties("_CodeName") =

_
"U" & wks.Index
End If
Next wks

This used to work. We have switched to Windows XP and Office 2003 (Small
business ed. SP2), and now I get an error (#1004), which reads (translated
from dutch): "Access to Visual Basic project at programming level
unreliable". Is it correct that access to this 'back door' to change the
worksheet code name has been changed in the transition to Excel 2003? Is
there a way to achieve the name change in another way?





Bob Phillips[_6_]

Changeing codename of worksheet via VBComponents collection
 

"Arne" wrote in message
...
Aha, I see. Clearly, 'unreliable' was the wrong translation, as it has to

do
with trustworthiness. Anyway, this solves the problem. Thank you very

much!

<g. The actual English text is Programmatic Access to Visual Basic project
is Not Trusted.




All times are GMT +1. The time now is 11:10 PM.

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