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 +0000 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]