Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Boa noite,

A solução é associar as macros abaixo, por exemplo, uma para caixa "Sim" e a outra para a caixa "Não":

Sub AtivarCaixas
   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("Planilha1")
   oForm = oPlan.DrawPage.Forms.getByname("Formulário")

   oCxSel3 = oForm.getByName("Caixa de seleção 3")
   oCxSel4 = oForm.getByName("Caixa de seleção 4")
   oCxSel5 = oForm.getByName("Caixa de seleção 5")

   'Ativar as caixas de seleção'
   oCxSel3.Enabled = True
   oCxSel4.Enabled = True
   oCxSel5.Enabled = True
End Sub

Sub DesativarCaixas
   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("Planilha1")
   oForm = oPlan.DrawPage.Forms.getByname("Formulário")

   oCxSel3 = oForm.getByName("Caixa de seleção 3")
   oCxSel4 = oForm.getByName("Caixa de seleção 4")
   oCtrle5 = oForm.getByName("Caixa de seleção 5")

   'Desativar as caixas de seleção'
   oCxSel3.Enabled = False
   oCxSel4.Enabled = False
   oCtrle5.Enabled = False

   'Desmarcar as caixas de seleção'
   oCxSel3.State = 0
   oCxSel4.State = 0
   oCtrle5.State = 0
End Sub

Atte,