[RESUELTO] Abrir archivo oculto y con contraseña No Funciona

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
mustallar
Mensajes: 8
Registrado: Sab Mar 28, 2020 10:35 am

[RESUELTO] Abrir archivo oculto y con contraseña No Funciona

Mensaje por mustallar »

Buenos días,

llevo tiempo dándole vueltas a esta función que no consigo que funcione bien desde que actulicé a OO4, en OO1 funcionaba.
, lo fui simplificando al máximo a ver si daba con el fallo pero no soy capaz.
Las dos propiedades por separado me funcionan bien, pero cuando las uso juntas como en esta función no funciona el Hidden

¿Alguien ve algo que yo no veo?

Código: Seleccionar todo

function abre_archivo(url as string, oculto as boolean, optional pass as string) as object	
	dim prop(1) as new com.sun.star.beans.PropertyValue
	
	prop(0).Name="Hidden"
	prop(0).Value = oculto
	prop(1).Name ="Password"
	prop(1).Value = pass

	'verificar que no esté abierto	
	
	abre_archivo = stardesktop.LoadComponentFromURL(url,"_blank",0,prop())
end function
Gracias, un saludo
Última edición por mustallar el Dom Abr 05, 2020 10:20 am, editado 1 vez en total.
Window 10 - OpenOffice 4.14
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Abrir archivo oculto y con contraseña No Funciona

Mensaje por PepeOooSevilla »

Hola.
Prueba con

Código: Seleccionar todo

function abre_archivo(url as string, oculto as boolean, optional pass as string) as object
	dim prop(1) as new com.sun.star.beans.PropertyValue

	prop(0).Name="Hidden"
	prop(0).Value = oculto
	prop(1).Name ="Password"
	If IsMissing(pass) Then
		prop(1).Value = ""
	Else
		prop(1).Value = pass
	End If

	'verificar que no esté abierto   
	
	abre_archivo = stardesktop.LoadComponentFromURL(ConvertToUrl(url),"_blank",0,prop())
end function
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.
mustallar
Mensajes: 8
Registrado: Sab Mar 28, 2020 10:35 am

Re: Abrir archivo oculto y con contraseña No Funciona

Mensaje por mustallar »

Hola PepeOooSevilla,

gracias por la rapidez en la respuesta.

El control del optional lo tenía, pero lo quité por simplificar, se me olvidó quitarlo en el encabezado de la función.

Así tampoco me funciona. No consigo que abra oculto y con password. Me lo abre pero no oculto.
Window 10 - OpenOffice 4.14
mustallar
Mensajes: 8
Registrado: Sab Mar 28, 2020 10:35 am

Re: Abrir archivo oculto y con contraseña No Funciona

Mensaje por mustallar »

Acabo de fijarme en el ConvertToUrl() -> lo uso fuera de la función para pasar la url...
Window 10 - OpenOffice 4.14
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Abrir archivo oculto y con contraseña No Funciona

Mensaje por PepeOooSevilla »

Hola.
El código siguiente me funciona en LibreOffice Calc 6.3.5.
Abre el archivo, con contraseña, de forma oculta, modifica la celda A1, lo guarda y lo cierra.
Ahora abro normalmente el archivo y ahí está modificada la celda A1.

Código: Seleccionar todo

REM  *****  BASIC  *****
Option Explicit

Sub Main()
	Dim Doc As Object

	Doc = abre_archivo("D:\PEPE\FORO\Pruebas_oculto_y_password_pepe.ods", True, "pepe")
	With Doc
		.getSheets().getByName("Hoja1").getCellRangeByName("A1").setString("Hola")
		.store()
		.close(True)
	End With
End Sub


function abre_archivo(url as string, oculto as boolean, optional pass as string) as object
	dim prop(1) as new com.sun.star.beans.PropertyValue

	prop(0).Name="Hidden"
	prop(0).Value = oculto
	prop(1).Name ="Password"
	If IsMissing(pass) Then
		prop(1).Value = ""
	Else
		prop(1).Value = pass
	End If

	'verificar que no esté abierto   
	
	abre_archivo = stardesktop.LoadComponentFromURL(ConvertToUrl(url),"_blank",0,prop())
end function
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.
mustallar
Mensajes: 8
Registrado: Sab Mar 28, 2020 10:35 am

Re: Abrir archivo oculto y con contraseña No Funciona

Mensaje por mustallar »

Pues será un fallo de Open Office. A mi me lo abre pero no oculto....

Gracias de todas formas.

Salu2
Window 10 - OpenOffice 4.14
mustallar
Mensajes: 8
Registrado: Sab Mar 28, 2020 10:35 am

Re: Abrir archivo oculto y con contraseña No Funciona

Mensaje por mustallar »

Hola de nuevo,

me he instalado el libreoffice 6.352 y aquí el mismo código funciona sin problema.

Parece que queda confirmado que es un fallo en el OpenOffice.

Salu2.
Window 10 - OpenOffice 4.14
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Abrir archivo oculto y con contraseña No Funciona

Mensaje por PepeOooSevilla »

Hola.
Por favor, si consideras que el tema que has iniciado se ha resuelto, indícalo (¿Cómo marcar como RESUELTO un tema?), ya que, de esta forma, conseguiremos un foro más ordenado.
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.
Avatar de Usuario
Juan89AA
Mensajes: 2
Registrado: Sab Oct 28, 2023 6:28 pm
Contactar:

Re: [RESUELTO] Abrir archivo oculto y con contraseña No Funciona

Mensaje por Juan89AA »

Gracias, justo iba buscando eso mismo.
Un saludo!
OpenOffice 3.1 en Windows Vista / NeoOffice 2.2.3 con MacOS 10.4 / OpenOffice 2.4 en Ubuntu 9.04
Responder