[RESUELTO]macro ocultar los nombres de las pestañas de Hojas

¿Nuevo en Apache OpenOffice? ¿No sabe cómo comenzar o dónde hacer su pregunta? ¡Este es el lugar!
Reglas del Foro
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.

[RESUELTO]macro ocultar los nombres de las pestañas de Hojas

Notapor mgteresa » Mar Mar 05, 2019 8:13 pm

Hola,

Estoy empezando a utilizar Openoffice cal, y necesito una macro que se ejecute al abrir el documento para ocultar la barra/ pestaña con los nombres de todas las hojas que lo conforman. Esto es para que solo se pueda acceder a cada hoja, según las respuestas que se obtengan a unas preguntas, que se hacen. Lo he buscado en este foro pero no lo pude encontrar, tal vez no he hecho la pregunta correctamente.
Muchas Gracias
Clara
Última edición por mgteresa el Mié Mar 06, 2019 2:19 pm, editado 1 vez en total
Open Office version 4.1.5 Windows 10
mgteresa
 
Mensajes: 2
Registrado: Mar Mar 05, 2019 7:50 pm

Re: macro ocultar los nombres de las pestañas nombre de hoja

Notapor PepeOooSevilla » Mié Mar 06, 2019 7:58 am

Hola.

Te damos la bienvenida al Foro de OpenOffice / LibreOffice y, por favor, no dejes de leer la Guía de supervivencia.

Una primera aproximación:

Código: Seleccionar todo   Expandir vistaContraer vista
Option Explicit

Sub OcultarOpcionesCalc()
   Dim ArchivoActivoCalc As Object

   ArchivoActivoCalc = ThisComponent.getCurrentController()
   With ArchivoActivoCalc
      ' Se ocultan las barras de desplazamiento
      .HasVerticalScrollBar = False
      .HasHorizontalScrollBar = False
      ' Las etiquetas de las hojas
      .HasSheetTabs = False
      ' Los encabezados de filas y columnas
      .HasColumnRowHeaders = False
      ' Las líneas de división de las celdas
      .showGrid = False
      ' Los saltos de página
      .showPageBreaks = False
   End With
End Sub

Sub MostrarOpcionesCalc()
   Dim ArchivoActivoCalc As Object

   ArchivoActivoCalc = ThisComponent.getCurrentController()
   With ArchivoActivoCalc
      ' Se muestran las barras de desplazamiento
      .HasVerticalScrollBar = True
      .HasHorizontalScrollBar = True
      'Las etiquetas de las hojas
      .HasSheetTabs = True
      'Los encabezados de filas y columnas
      .HasColumnRowHeaders = True
      'Las líneas de división de las celdas
      .showGrid = True
      'Los saltos de página
      .showPageBreaks = True
   End With
End Sub

Para que una macro se ejecute al abrir un documento tienes que seleccionar "Herramientas > Personalizar... > Pestaña Sucesos" y al suceso "Abrir documento" le puedes asociar la macro "OcultarOpcionesCalc()" y al suceso "Se cerrará el documento" la macro "MostrarOpcionesCalc()", obviamente con las modificaciones que le quieras hacer. Los nombres de los sucesos pueden variar ligeramente de OpenOffice a LibreOffice y viceversa.

Para adentrarse en el mundo de las macros para OpenOffice/LibreOffice, lo primero que has de hacer es leer, releer y estudiar el libro Aprendiendo OOo Basic de nuestro compañero mauricio y, también, visitar y estudiar las páginas Manuales de Apache OpenOffice en español: Basic y Basic OpenOffice: Apache OpenOffice Basic en español de nuestro compañero SLV-es. Y, en inglés, tienes OpenOffice.org Macros Explained V4 de Andrew Pitonyak.

Y ... No cansarte de hacer pruebas y pruebas y pruebas ...

Saludos cordiales.
LibreOffice 6.1.5 en Windows 7 / 10
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1066
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: [RESUELTO]macro ocultar los nombres de las pestañas de H

Notapor mgteresa » Mié Mar 06, 2019 2:19 pm

Gracias !! Seguire tus consejos
saludos cordiales
Clara
Open Office version 4.1.5 Windows 10
mgteresa
 
Mensajes: 2
Registrado: Mar Mar 05, 2019 7:50 pm


Volver a Principiantes

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados