Contar numero de libos ocultos.

hola, jose !

como puedo contar los libros OCULTOS que estan abiertos en una aplicacion?

si te interesa contar 'solamente' libros 'normales' cuya ventana este oculta...
no hagas caso en el siguiente ejemplo a las lineas que hacen referencia a los 'complementos'
[no hay otra forma en vba de contar 'rapidamente' complementos abiertos/disponibles/operando/...]
[incluso, a la instruccion Application.AddIns.Count no le interesa si estan 'marcados' o no]
[aunque, puedes arreglarte otro bucle similar que pregunte a cada AddIn si esta 'Installed' o no]

Dim Sig As Byte, Normales As Integer, Complementos As Byte
Complementos = ExecuteExcel4Macro("counta(documents(2))")
For Sig = 1 To Workbooks.Count
Normales = Normales - Not Windows(Workbooks(Sig).Name).Visible
Next
MsgBox "Complementos: " & Complementos & vbCr & _
"Libros normales: " & Normales, , "Libros ocultos."

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Muy bien, gracias, ya lo modificaré.

Un saludo, vale?
jose

On 12 mar, 05:59, "Héctor Miguel"
wrote:

hola, jose !

> como puedo contar los libros OCULTOS que estan abiertos en una aplicacion?

si te interesa contar 'solamente' libros 'normales' cuya ventana este oculta...
no hagas caso en el siguiente ejemplo a las lineas que hacen referencia a los 'complementos'
[no hay otra forma en vba de contar 'rapidamente' complementos abiertos/disponibles/operando/...]
[incluso, a la instruccion Application.AddIns.Count no le interesa si estan 'marcados' o no]
[aunque, puedes arreglarte otro bucle similar que pregunte a cada AddIn si esta 'Installed' o no]

Dim Sig As Byte, Normales As Integer, Complementos As Byte
Complementos = ExecuteExcel4Macro("counta(documents(2))")
For Sig = 1 To Workbooks.Count
Normales = Normales - Not Windows(Workbooks(Sig).Name).Visible
Next
MsgBox "Complementos: " & Complementos & vbCr & _
"Libros normales: " & Normales, , "Libros ocultos."

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.