ocultar ventana de excel

hola, 'anonimo/a' !

si (como parece) estas usando objetos de automatizacion con llamadas a las API's de windows -?-

podrias transcribir (al menos) el codigo que usas para ocultar y para mostrar los objetos instanciados ?
(lo que dejes "en el tintero"... no creo que se pueda adivinar "acertadamente" -desde este lado del mensaje-)

saludos,
hector.

__ OP __

Hasta la version 2003 se podia ocultar y mostrar la ventana de excel con ShowWindow
intento utilizarlo en excel 2003 y si bien es cierto que oculta correctamente la ventana de excel
cuando la muestra ha perdido la cinta de opciones, el boton de office y la barra de herramientas de acceso rapido.
Por favor alguien puede ayudarme con este tema
He leido todo lo que he encontrado en el MSDN sobre Ribbon y segun creo entender
la cinta de opciones esta definida en xml y se ejecuta al abrirse excel
En fin agradeceria vuestra ayuda

Gracias por responder Héctor Miguel, aqui tienes el codigo que utilizo
EN EL AREA DE DECLARACIONES DEL MODULO
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal
nCmdShow As Long) As Long
Dim IntHwnd As Long
Dim lngResultado As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOW = 9

EN LA FUNCION PROPIAMENTE DICHA
Public Function NoVerExcel(Optional strAccion As String, Optional
blnSwitchStatus As Boolean, Optional blnStatusCheck As Boolean) As Boolean
If UCase(strAccion) = "OCULTAR" Then
lngResultado = ShowWindow(Application.hwnd, SW_HIDE) ' oculta la
ventana.
NoVerExcel = True
ElseIf UCase(strAccion) = "MOSTRAR" Then
lngResultado = ShowWindow(Application.hwnd, SW_SHOWMAXIMIZED)
'muestra la ventana.
NoVerExcel = False
End If
End Function

Y luego llamo a la funcion desde donde me interesa pasandole como parametro
MOSTRAR o OCULTAR segun preciso.
Este codigo lo tome de la Web de Emilio y añadi tipos de variantes SW_ ya
que no funcionaba tal y como estaba escrito.




"Héctor Miguel" wrote:

hola, 'anonimo/a' !

si (como parece) estas usando objetos de automatizacion con llamadas a las API's de windows -?-

podrias transcribir (al menos) el codigo que usas para ocultar y para mostrar los objetos instanciados ?
(lo que dejes "en el tintero"... no creo que se pueda adivinar "acertadamente" -desde este lado del mensaje-)

saludos,
hector.

__ OP __
> Hasta la version 2003 se podia ocultar y mostrar la ventana de excel con ShowWindow
> intento utilizarlo en excel 2003 y si bien es cierto que oculta correctamente la ventana de excel
> cuando la muestra ha perdido la cinta de opciones, el boton de office y la barra de herramientas de acceso rapido.
> Por favor alguien puede ayudarme con este tema
> He leido todo lo que he encontrado en el MSDN sobre Ribbon y segun creo entender
> la cinta de opciones esta definida en xml y se ejecuta al abrirse excel
> En fin agradeceria vuestra ayuda

hola, (...) ???

si estas ocultando la ventana de excel por macros desde el mismo excel -???-
los siguientes procedimientos funcionan (97 a 2007) sin presentar el inconveniente que mencionas en la version 2007
(nota: como no se el tipo de llamada que haces en el codigo, estoy -re-programando la aparicion de la ventana a los 10 segundos)

Sub OcultarVentanaDeExcel()
VentanaDeExcelVisible False
Application.OnTime Now + TimeValue("0:00:10"), "VentanaDeExcelVisible"
End Sub

Private Function VentanaDeExcelVisible(Optional Mostrar As Boolean = True)
Application.Visible = Mostrar
End Function

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

... aqui... el codigo que utilizo
EN EL AREA DE DECLARACIONES DEL MODULO
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim IntHwnd As Long
Dim lngResultado As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOW = 9
EN LA FUNCION PROPIAMENTE DICHA
Public Function NoVerExcel(Optional strAccion As String, Optional blnSwitchStatus As Boolean, Optional blnStatusCheck As Boolean) As Boolean
If UCase(strAccion) = "OCULTAR" Then
lngResultado = ShowWindow(Application.hwnd, SW_HIDE) ' oculta la ventana.
NoVerExcel = True
ElseIf UCase(strAccion) = "MOSTRAR" Then
lngResultado = ShowWindow(Application.hwnd, SW_SHOWMAXIMIZED) 'muestra la ventana.
NoVerExcel = False
End If
End Function

Y luego llamo a la funcion desde donde me interesa pasandole como parametro MOSTRAR o OCULTAR segun preciso.
Este codigo lo tome de la Web de Emilio y anadi tipos de variantes SW_ ya que no funcionaba tal y como estaba escrito.

__ previos __

hola, 'anonimo/a' !

si (como parece) estas usando objetos de automatizacion con llamadas a las API's de windows -?-

podrias transcribir (al menos) el codigo que usas para ocultar y para mostrar los objetos instanciados ?
(lo que dejes "en el tintero"... no creo que se pueda adivinar "acertadamente" -desde este lado del mensaje-)

__ OP __

Hasta la version 2003 se podia ocultar y mostrar la ventana de excel con ShowWindow
intento utilizarlo en excel 2003 y si bien es cierto que oculta correctamente la ventana de excel
cuando la muestra ha perdido la cinta de opciones, el boton de office y la barra de herramientas de acceso rapido.
Por favor alguien puede ayudarme con este tema
He leido todo lo que he encontrado en el MSDN sobre Ribbon y segun creo entender
la cinta de opciones esta definida en xml y se ejecuta al abrirse excel
En fin agradeceria vuestra ayuda

Gracias Hector Miguel, lo probe y funciona sin problemas.muchas gracias

"Acuario" wrote:

Hola a todos...
Hasta la version 2003 se podia ocultar y mostrar la ventana de excel con
ShowWindow, intento utilizarlo en excel 2003 y si bien es cierto que oculta
correctamente la ventana de excel, cuando la muestra ha perdido la cinta de
opciones, el boton de office y la barra de herramientas de acceso rapido.
Por favor alguien puede ayudarme con este tema
He leido todo lo que he encontrado en el MSDN sobre Ribbon y segun creo
entender, la cinta de opciones esta definida en xml y se ejecuta al abrirse
excel
En fin agradeceria vuestra ayuda