Eduardonada

Muito obrigado amigo, @Alyson Ronnan Martins Fico grato de estar me auxiliando neste processo de aprendizagem! Possuo outras ideias e caso não se sinta incomodado de me auxiliar, ficaria encantado com tamanha compreensão. Acessei a Plan e realizando alguns testes, após cancelar o userform e tentar excluir novamente, o código permite a exclusão do conteúdo da célula, está ação também deveria abrir o userform, não? Trarei outras dúvidas, pode ter certeza! kkkkk Forte abraço...

Boa tarde! kkkk Muito obrigado mesmo. Eu realmente não considerei muitas partes do seu código acima, mas me perdi um pouco onde usar cada uma delas, conseguiria só me esclarecer um pouco melhor? OBS: Não estou conseguindo acessar o link pelo one drive hehe

Opa! Na verdade eu preciso que o meu código identifique o ato de excluir como um gatilho para o Userform, que questiona a exclusão solicitando uma senha para continuar. No entanto, o código não funciona como esperado, por exemplo: Insiro a senha correta e clico em "Excluir" o mesmo funciona porém entra em um loop; Insiro a senha incorreta e clico em "Excluir" o mesmo acusa senha incorreta e apaga a célula (Algo que não deveria); Ao clicar em "Fechar" o mesmo permite a exclusão da célula (Algo que não deveria); Sendo assim de qualquer maneira permitindo a exclusão, precisaria q isso não ocorresse.

Oie! Preciso de uma ajuda em relação a meu código em VBA. Possuo uma planilha em que preciso limitar as pessoas que excluem os itens de um índice, pensei em um UserForm com caixa de texto pedindo uma senha, para deixar registrado quem esta permitindo exclusões, no entanto, não consigo achar uma forma do código entender que o valor texto de uma célula foi excluído (para funcionar como um gatilho do Userform) Atualmente tentei por sinal Key, como sinal do teclado, mas mesmo assim o código não executa a macro como esperado. Código da Planilha Indice: Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Me.Range("B5:B" & Me.Cells(Me.Rows.Count, "B").End(xlUp).Row) If Not Application.Intersect(KeyCells, Target) Is Nothing Then If Target.Value = "" And Not Intersect(Target, Me.Range("B:B")) Is Nothing Then senha.Show Application.EnableEvents = False Target.Value = "" Application.EnableEvents = True End If End If End Sub