Ativar/Desativar caixa de grupo ao clicar em uma opção no calc

Gostaria de saber se há alguma maneira de fazer com que uma caixa de grupo e suas opções sejam ativadas ou desativadas ao clicar em uma opção que está em uma outra caixa de grupo em formulários.

Ex: Em uma caixa de grupo contem “pagamento efetuado” e as opções “sim” e “não”.
Se marcar a opção “sim”, esta faz com que a próxima caixa de grupo (contendo as formas de pagamento) passe a ficar ativa, e se clicar em “não” ela volta a ficar desativada .

Obrigado

Bom dia, caso você a tenha a planilha com o exemplo, poste-a para melhorar o entendimento.

Ola @juulio, em Caixa de grupo, não sei como fazer, mas fiz algo semelhante usando Dados / Validação e Formatação condicional, no caso mencionado quando a resposta anterior é “não” a Formatação condicional a deixa “invisível”, sem bordas, se houver e texto na cor do fundo,

Obrigado pela ajuda.

Aqui está um exemplo da planilha

https://app.box.com/s/r9kaeaeanwzq0omn0k1n8171ng6lgbcd

O exemplo que mencionei acima (eliminei a grade para ficar mais visível).

Arquivo com o teste.

Obrigado, Gilberto.
Eu realmente pretendo criá-la com os botões de formulário, mas deu ter uma ideia alternativa.

Valeu

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,

1 Like

Muito bom @Grafeno.

Valeu @Gilberto Schiavinatto.

Ola @Grafeno, tu mantém ou participa de algum blog com dicas sobre o LibO, sem ser este ?

Não, @Gilberto Schiavinatto. Ando sem tempo, então só participo aqui.

You are the best Grafeno!!!

Muito obrigado mesmo. Exatamente o que eu precisava.

Grafeno e Gilberto sempre nos ajudando a aprender cada vez mais

É uma pena, @Grafeno,imagino que tu tens muitas anotações úteis guardadas.


Alo @juulio, se a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta do Grafeno, para finalizar a pergunta.

Bom dia, @Grafeno

Estou tentando fazer um planilha e o seu código ajudou muito. Mas eu queria entender ele melhor. Na linha “oForm = oPlan.DrawPage.Forms.getByname(“Formulário”)”, o “Formulário” refere-se a quê? Muito obrigado pela sua ajuda.

Para ilustrar o caminho feito no código.
.
Ferramentas > Formulários > Ative o Modo de edição > Navegador de Formulários
.
Abrirá uma janela com os formulários ou formas inseridas no documento.

Consegui achar. Muito obrigado pela explicação.

O exemplo que mencionei acima (eliminei a grade para ficar mais visível).

Arquivo com o teste.