Proteger planilha após macro ser finalizada
Enviado: 16 Ago 2020 às 17:56
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.
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.
