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

[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

[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.

[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.

[mustallar]

Acabo de fijarme en el ConvertToUrl() -> lo uso fuera de la función para pasar la url...

[PepeOooSevilla]

Hola.
El código siguiente sí 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.

[mustallar]

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

Gracias de todas formas.

Salu2

[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.

[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.

[Juan89AA]

Gracias, justo iba buscando eso mismo.
Un saludo!