CARLOS CESAR SARTORE SALLES

Boa tarde Erik,

Como  a planilha que estou desenvolvendo está bem pesada, fiz um modelo teste com o mesmo conceito!

Se clicar duas vezes do menu drop-down verá que o problema é o mesmo

 

Grato,

Modelo Caixa de Combinacao.rar

Prezados, bom dia

Possuo uma caixa de combinação que ao selecionar determinado item chama uma msgbox questionando se o usuário deseja realmente efetuar tal escolha, se a escolha for "sim" então ele trava a caixa de combinação, se a escolha for "não" então, ele pode voltar a escolha normalmente.

O problema é que caso a escolha for "sim", ele de fato trava a caixa de combinação, porém se der dois cliques ele volta ao inicio da macro, surgindo a msgbox novamente e meu desejo é que permaneça travado.

 

Segue linhas de código:

 

Sub Dropdown18_Alteração()

Dim Resposta As Long

Resposta = MsgBox("Deseja Selecionar esta Loja?", vbYesNo)

If Resposta = vbYes Then

ActiveSheet.Shapes("Drop Down 18").ControlFormat.Enabled = False
 

Else
ActiveSheet.Shapes("Drop Down 18").ControlFormat.Enabled = True

End If

End Sub

 

Poderiam me ajudar?
 

Já antecipo minhas desculpas pela minha falta de experiencia.