Este fórum está sendo desativado

[ArthuFelipe]

Olá,
Possuo uma Planilha 1 cuja alguma linhas possuem dados em lista suspensa, criada a partir da plan 2 que contém minha base de dados, que me retorna X ou " "(nada), eu adicionei um código para desproteger a planilha quando a macro for rodada e protege-la novamente após a finalização da macro
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(1).Unprotect
If Target.Value <> "X" Then Exit Sub
Rows(Target.Row + 1).AutoFit
Sheets(1).Protect
End Sub
Acontece que quando eu seleciono na lista suspensa o valor "" (em branco), a minha planilha fica inteiramente desprotegida, eu gostaria que selecionando também a opção "" minha planilha continuasse protegida.
Alguém consegue me ajudar?
Imagem da lista suspensa em minha planilha


Sou novo aqui e iniciante no VBA, encontrei esse código em no fórum e se vocês puderem me ajudar com essa questão ficarei grato, quebrei mt a cabeça hoje.

[osvaldomp]

Troque as posições das linhas conforme abaixo.

atual

Código: Selecionar todos

Sheets(1).Unprotect
If Target.Value <> "X" Then Exit Sub

altere conforme abaixo

Código: Selecionar todos

If Target.Value <> "X" Then Exit Sub
Sheets(1).Unprotect

[ArthuFelipe]

Funcionou! Obrigado!