In diesem Fall kannst Du die Eigenschaft "nur lesen" der 3 Spalten mit einem Makro steuern:
Code: Alles auswählen
sub Readonly_Veraendern
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms(0)
oGridcontrol = oForm.getByINDEX(0)
oListboxHaken = oGridcontrol.getByINDEX(4)
oListbox1 = oGridcontrol.getByIndex(5)
oListbox2 = oGridcontrol.getByIndex(6)
oListbox3 = oGridcontrol.getByIndex(7)
select case oListboxHaken.getcurrentvalue
case 1
oListbox1.readonly = false
oListbox2.readonly = false
oListbox3.readonly = false
case else
oListbox1.readonly = true
oListbox2.readonly = true
oListbox3.readonly = true
end select
end sub
Dieses Makro weist Du den 3 anderen Spalten zu, und zwar dem Ereignis: "Bei Fokuserhalt"
g