Macro para ativar e desativar caixa de listagem

[luiz1828]

Olá a Todos,

Gostaria de saber se existe uma macro para ativar e desativar uma caixa de listagem, pois tenho uma planilha com um botão que pede uma senha. Queria que assim que a pessoa colocasse a senha correta, automaticamente a caixa de listagem ativasse para ela poder ver os menus da caixa.

Obrigado desde já

[Conras]

Segue

Se estiver dentro de um Dialog

Sub DesativarCaixadeListagem

    oDialog1.getControl("Nome_da_Caixa_de_Listagem").Enable  = False

End Sub

False = Desabilita o controle.

Obs.: Verifique o nome do seu Dialog

Se estiver direto na planilha

Sub DesativaCaixadeListagem

	oDoc = ThisComponent
	oPlan = oDoc.Sheets.getByName ("Nome_da_Aba_da_Planilha")
	oForm = oPlanDrawPage.Forms.getByName("Formulário")
	
	oForm.getByName("Nome_da_Caixa_de_Listagem").Enabled = False

End Sub

[luiz1828]

Muito obrigado amigo, deu certo aqui hahaah

[Conras]

@luiz1828 marque a resposta como correta para ajudar aos demais que estiverem procurando o mesmo assunto