Contar numero de libos ocultos.

12/03/2007 - 01:34 por ~ jose ~ | Informe spam
Hola que tal?
como puedo contar los libros OCULTOS que están abiertos en una
aplicación?

Un saludo
jose
 

Leer las respuestas

#1 Héctor Miguel
12/03/2007 - 05:59 | Informe spam
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.

Preguntas similares