¿Como puedo quitar la barra de herramientas de DRAE de enmedio de la ventana de Excel?

he de suponer que se quita-desmarca desde Complementos.
Herramientas - Complementos

Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
ADD-IN para Outlook: http://www.infonegocio.com/luzylar/...utlook.htm
®El Rincón del Navegante - http://www.luzylar.com

*** Consulta en el Foro específico:
Outlook EXPRESS news://msnews.microsoft.com/microso...ookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microso...es.outlook
OUTLOOK con EXCHANGE news://msnews.microsoft.com/microso...s.exchange
... hay más, busca el que necesites.
_________________________________________________________________________________________
"Rafa" escribió en el mensaje de noticias
news:

Pues eso que ¿Como puedo quitar la barra de herramientas de DRAE de enmedio de la ventana de
Excel? antes la tenia quitada, pero he reistalado todo y me ha aparecido enmedio de la ventana y
aunque la quito al volver a abrir Excel vuelve a aparecer.
Antes me dijeron un truco para quitarla, pero no lo encuentro, si alguien lo sabe y me lo dice le
estaria muy agradecido.

Si asi se quita, pero al volver a arrancar excel vuelve a aparecer enmedio
de la ventana y es muy molesto siempre la misma rutina para quitar la
dichosa barra

¿y esa barra qué-quién-cómo se ha instalado en Excel?

Si desde Excel - Complementos se quita-desmarca no debería de volver a aparecer... salvo que se
vuelva a instalar porque así esté configurado en lo que la instala.
_________________________________________________________________________________________
"Rafa" escribió en el mensaje de noticias
news:

Si asi se quita, pero al volver a arrancar excel vuelve a aparecer enmedio de la ventana y es muy
molesto siempre la misma rutina para quitar la dichosa barra

Abres el "Editor de Visual Basic" (Herramientas > Macro), y en él, el
explorador de proyectos (Ver > Explorador de proyectos).
Verás el proyecto "DRAE (buscador.xla)".
Abre el código de su objeto "ThisWorkbook".
Verás que tiene el evento:
'**************
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("DRAE").Delete
End Sub
'**************


Cambiando el método '.Delete' por la propiedad '.Visible' en el evento
'WorkbookOpen', conseguirás que cada vez que se abra Excel, la barra no se
muestre, pero la seguirás teniendo disponible desde el menú "Ver > Barras de
herramientas > DRAE".
Añades lo siguiente a su código, y guardas el proyecto xla:


'=Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("DRAE").Visible = False
End Sub
'=

gracias por el aporte.

Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
ADD-IN para Outlook: http://www.infonegocio.com/luzylar/...utlook.htm
®El Rincón del Navegante - http://www.luzylar.com

*** Consulta en el Foro específico:
Outlook EXPRESS news://msnews.microsoft.com/microso...ookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microso...es.outlook
OUTLOOK con EXCHANGE news://msnews.microsoft.com/microso...s.exchange
... hay más, busca el que necesites.
_________________________________________________________________________________________
"Rafa" escribió en el mensaje de noticias
news:

Abres el "Editor de Visual Basic" (Herramientas > Macro), y en él, el explorador de proyectos (Ver
> Explorador de proyectos).
Verás el proyecto "DRAE (buscador.xla)".
Abre el código de su objeto "ThisWorkbook".
Verás que tiene el evento:
'**************
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("DRAE").Delete
End Sub
'**************


Cambiando el método '.Delete' por la propiedad '.Visible' en el evento 'WorkbookOpen',
conseguirás que cada vez que se abra Excel, la barra no se muestre, pero la seguirás teniendo
disponible desde el menú "Ver > Barras de herramientas > DRAE".
Añades lo siguiente a su código, y guardas el proyecto xla:


'=> Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("DRAE").Visible = False
End Sub
'=>