![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
Hola a todos, tengo una aplicación que muestra un documento excel en un TOleContainer. El usuario no debe poder hacer ninguna modificación, para lo que desactivo el contenedor OleContainer.Enabled := False. Lo que ocurre es que aunque no se puede acceder directamente a las celdas, las barras de herramientas son visibles y están activas. Mi pregunta es ¿cómo hacerlas desaparecer?
He mirado la ayuda de VBA de Excel y he probado cosas cómo: Código:
OleContainer.OleObject.Application.CommandBars('EuroValue').Enabled := False;
OleContainer.OleObject.Application.CommandBars('EuroValue').Visible := False;
OleContainer.OleObject.Application.CommandBars.Item['EuroValue'].Set_Enabled(False);
OleContainer.OleObject.Application.CommandBars.Item[1].Set_Enabled(False);
¿Alguien puede ayudarme? Muchas gracias de antemano. |
|
#2
|
|||
|
|||
|
No se si lo has podido solucionar pero quizas estas instrucciones te sirvan
Olecontainer1.OleObject.application.CommandBars['Standard'].Visible:=false; Olecontainer1.OleObject.application.CommandBars['Formatting'].Visible:=false; Olecontainer1.OleObject.application.CommandBars['Reviewing'].Visible:=false; Con esto desaparecen las barras del excel, lo que necesito es que aparezcan estas barras pero con las opciones imprimir y guardar habilitadas |
![]() |
|
|
|