[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.
Responder
mgteresa
Mensajes: 2
Registrado: Mar Mar 05, 2019 7:50 pm

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

Mensaje por mgteresa »

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
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

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

Mensaje por PepeOooSevilla »

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

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.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
mgteresa
Mensajes: 2
Registrado: Mar Mar 05, 2019 7:50 pm

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

Mensaje por mgteresa »

Gracias !! Seguire tus consejos
saludos cordiales
Clara
Open Office version 4.1.5 Windows 10
Responder