To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=76975
Issue #|76975
Summary|open password protected spreadsheet
Component|Spreadsheet
Version|1.0.0
Platform|Other
URL|
OS/Version|Windows XP
Status|UNCONFIRMED
Status whiteboard|
Keywords|
Resolution|
Issue type|DEFECT
Priority|P4
Subcomponent|programming
Assigned to|spreadsheet
Reported by|shiraz1000
--- Additional comments from [EMAIL PROTECTED] Sat May 5 10:44:52 +
2007 ---
hi,
I want to open password protected excel sheet using openoffice api in vb.net
I have used the following code
Public Function OOoPropertyValue(ByRef objServiceMgr As Object, ByVal cName As
Object, ByVal uValue As Object, ByVal PValue As Object) As Object
Dim oPropertyValue As Object
oPropertyValue =
objServiceMgr.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oPropertyValue.Name = cName
oPropertyValue.Value = uValue
oPropertyValue.Value = PValue
Return oPropertyValue
End Function
Sub InitialiateComponent()
objServiceManager = CreateObject("com.sun.star.ServiceManager")
Dim objDesktop As Object
Dim OpenParams(2) As Object
OpenParams(0) = OOoPropertyValue(objServiceManager, "Hidden", True,
"101")
OpenParams(1) = OOoPropertyValue(objServiceManager, "ReadOnly", False,
"101")
OpenParams(2) = OOoPropertyValue(objServiceManager, "Visible", False,
"101")
objDesktop =
objServiceManager.createInstance("com.sun.star.frame.Desktop")
objCalcDocument =
objDesktop.LoadComponentFromURL(ConvertToURL("c:\test\HealthAssurePlusCalculator.xls"),
"_blank", 1, OpenParams)
End Sub
I have little idea that i can be done using mediadescription service but how to
implement that into vbcode into above sequence i dont know.
Plz. guide me.
-
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]