Sub Zamkni_OdemkniBunku 'Testovat kombinace se zamykáním sešitu - viz koment řádky
dim args1 (0) As New com.sun.star.beans.PropertyValue
args1 (0). Name = "Chránit"
args1 (0). hodnota = false
'dispatcher.executeDispatch (document "uno:.Protect", "", 0, args1 ())
'typ
rem ----------------------------------------------------------------------
dim args3 (0) As New com.sun.star.beans.PropertyValue
args3 (0). Name = "Chránit"
args3 (0). hodnota = true
dispatcher.executeDispatch (document, "uno:. Protect", "", 0, args3 ())
End SUB
Už jsem to dlouho netestoval. Myslím že mám podobné makro bez UNO, ale otestujte a uvidíte. Když tak se pustím do hledání-
]]>