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.