CodeName problem

[hrosze]

no puedo hacer que excel VBA me de el nombre del worksheet cuando estoy usando password lock in VB code pero cuando estoy usando VB code open funciona perfectamente

este es el codigo

Dim Ws As Worksheet
For Each Ws In Worksheets
ListaEscProg.Cells(a, 31) = Ws.CodeName
a = a + 1

next Ws

 

[Andrew Poulsom]

This code worked for me in Excel 2000 if the VBA Project was locked with a password:

Sub Test()
    Dim ListaEscProg As Worksheet
    Dim Ws As Worksheet
    Dim a As Long
    Set ListaEscProg = Worksheets("Sheet1")
    a = 1
    For Each Ws In Worksheets
        ListaEscProg.Cells(a, 31) = Ws.CodeName
        a = a + 1
    Next Ws
End Sub

Do you get an error and which version of Excel are you using?

 

[hrosze]

the problem with codename appear in Excel 2007 and again in Excel 2010

 

[RoryA]

Works fine for me in 2007 (after giving a an initial value greater than 0) with a locked project.

 

[Greg Truby]

¿Pudo usted correr el código provisto por Andrés? Él ya corrigió las dos causas más probables de fracaso, que la variable ListaEscProg sea nada, y como hizo eco Rory que la variable a sea cero.

Atentamente,