Guido (email.it) wrote:
> Qualcuno sa indirizzarmi verso l'area dei metodi/servizi/proprietà da
> esplorare?
Pensavo si potesse fare facilmente impostando la proprietà ReadOnly a True
con il metodo StoreAsURL, ma non sembra funzionare.
La macro seguente va a lavorare direttamente sul file e lo imposta in sola
lettura (non è esattamente quello che volevi tu...):
sub SolaLettura
oDoc = ThisComponent
document = oDoc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
file = createUnoService("com.sun.star.ucb.SimpleFileAccess")
sURL = oDoc.URL
file.setReadOnly(sURL, True)
dispatcher.executeDispatch(document, ".uno:Reload", "", 0, Array())
end sub
Non ho idea di come operi la casella in opzioni, anche perché l'opzione
"sola lettura" si riferisce in effetti alla successiva apertura del file
(anche l'apertura in sola lettura si riesce a fare facilmente con una macro).
Magari si potrebbe andare a curiosare nel file compresso (io non ho tempo)?
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
