Abrir un cuadro de dialogo una sola vez

06/10/2003 - 23:16 por Henry Sanchez | Informe spam
Hola Grupo,

Tengoun cuadro de dialogo dentro de un complemento el cual
pueden abrir en forma No Modal, todos los libros que se
encuentren abiertos en la aplicacion mediante un doble
click en celdas especiales.

El problema que tengo es que si el usuario abre este
cuadro de dialogo, despues puede desde otro libro de
trabajo tratar de abrir el mismo cuadro de dialogo.

Necesitaria un metodo que me diga si un cuadro de dialogo
de un complemento se encuentra abierto

Saludos,

Henry
 

Leer las respuestas

#1 Héctor Miguel
07/10/2003 - 03:17 | Informe spam
Hola, Henry !

... cuadro de dialogo ... de un complemento ... No Modal ... libros ... abiertos ... doble click en celdas especiales.
... si el usuario abre este cuadro de dialogo, despues puede desde otro libro ... tratar de abrir el mismo cuadro [...]
... metodo que me diga si un cuadro de dialogo de un complemento se encuentra abierto



==> en febrero de este año hiciste la consulta: =>como saber si un cuadro de dialogo se encuentra cargado< ['practicamente' es la misma respuesta... 'aunque'...]
la 'unica' forma de mostrar cuadros de dialogo [userforms] =>al menos, hasta donde yo se<= es:
==> 'llamandolo' [show] en procedimientos DEL MISMO proyecto [vba] donde 'existe' el formulario <= [desde 'otro' proyecto seria necesario 'llamar' a algun procedimiento del proyecto [vba] donde 'existe' el formulario]
[ya sea usando el metodo 'Application.Run' o estableciendo referencias 'entre' ambos proyectos]

==> si [solamente] quieres saber si el formulario 'ya esta visible' [o 'evitar' que se mostrara 'mas' veces]...
en la linea con la que 'se muestra' el formulario [en el complemento], en vez de 'simplemente' mostrarlo usa 'algo como'
=> If Not MiFormulario.Visible Then MiFormulario.Show vbModeless <
==> si necesitas acciones 'diferentes' [para el caso de que el formulario este ya visible]
en el proyecto [vba] del complemento donde 'existe' el formulario [en el evento que lo muestra] ==[... ... ...]
If MiFormulario.Visible Then
MsgBox "El formulario ya está ""visible"""
Else: MiFormulario.Show vbModeless
End If
[... ... ...]
_______
Saludos,
Héctor.
MS-MVP

Preguntas similares