How to set "ReadOnly" mode when opening calc file

[shma_lo]

In my macro I open file by
oDocPrice = StarDesktop.loadComponentFromURL(“file:///” & WorkDir & “Price.ods”, “_hidden”, 0, Dummy()).
How to change this line to open file as “ReadOnly”? I have read Pitonyak’s book but couldn’t find clear answer.
Sorry for this stupid question.

[Zizi64]

Workaround tips:

• Open it as a Template. Then the User can not resave the accidentally modified file by one click.
• Use Sheet protection.
• Save the document with Password.

[sokol92]

Sub TestReadOnly
  Dim args(0) as new com.sun.star.beans.PropertyValue
  args(0).Name="ReadOnly"
  args(0).Value=True
  StarDesktop.loadComponentFromURL(ConvertToUrl("C:\Temp\Test.ods"), "_blank", 0, args())   
End Sub

[shma_lo]

Большое спасибо

[sokol92]

Good luck!