Bom dia!!!

Use a Pesquisa e a Biblioteca do fórum!!!

É só adaptar!!!
viewtopic.php?f=21&t=5487

Att

Obrigado, alexandrevba!

Eu fiz a seguinte adaptação:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewValue As Variant, OldValue As Variant
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:AB300")) Is Nothing Then
NewValue = Target.Value
Application.EnableEvents = False
Application.Undo
OldValue = Target.Value
If OldValue = "" Then
Select Case MsgBox("Confirma valor digitado?", vbQuestion + vbYesNoCancel)
Case vbYes: MsgBox "Você optou por SIM", vbInformation, "Aviso!"
Case vbNo: MsgBox "Voce optou por NÃO", vbCritical, "Aviso!"
Case Else: MsgBox "Você optou por CANCELAR", vbCritical, "Aviso!"
End Select
Target.Value = NewValue
ElseIf InputBox("entre com a senha") = "alevba" Then
Target.Value = NewValue
Else: MsgBox "Você não tem permissão para alterar o conteúdo da celula.", 16, "Células Bloqueadas"
Target.Value = OldValue
End If
Application.EnableEvents = True
End If
End Sub

Ainda não está do jeito que eu queria, mas eu tô trabalhando nisso haha
O único problema é: quando aparece a caixa de diálogo pra confirmar a inserção dos dados eu clico em "não" ou em "cancelar" ele não deixa a célula vazia. Tem alguma coisa que eu estou fazendo errado?

brun, de uma olhada no link abaixo e veja se ajuda :

VBA Excel pedir autorização para alterar dados de uma célula
http://www.tomasvasquez.com.br/forum/vi ... lula#p5710

[]s

Bom dia!
Consegui resolver o problema do botão cancelar adaptando o código dessa maneira:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewValue As Variant, OldValue As Variant, resultado As VbMsgBoxResult
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
NewValue = Target.Value
Application.EnableEvents = False
Application.Undo
OldValue = Target.Value
If OldValue = "" Then
resultado = MsgBox("Tem certeza que deseja prosseguir com esta ação?", vbYesNo, "Tomando uma decisão")
If resultado = vbYes Then
MsgBox "Você acaba de confirmar a ação"
Target.Value = NewValue
Else
MsgBox "Você acaba de recusar a ação"
End If
ElseIf InputBox("Digite a senha para alterar o valor da célula") = "1234" Then
Target.Value = NewValue
Else: MsgBox "Você não tem permissão para alterar o conteúdo da celula.", 16, "Células Bloqueadas"
Target.Value = OldValue
End If
Application.EnableEvents = True
End If
End Sub

Agora, quando eu aplico aquela validação de dados do excel, em que o usuário deve digitar um valor que esteja no intervalo que eu estabeleci, aparece o seguinte erro: Erro em tempo de execução '1004' O método 'Undo do objeto '_Application' falhou.
Alguém saberia me orientar sobre como resolver esse problema?
Obrigado!!

Olá pessoal, alguém consegue resolver o problema sobre Application.Undo em células com validação de dados?
Obrigado.

Por favor, aperte o botão editar e modifique o título de seu tópico, retirando as palavras:

Dúvida com VBA

E os parênteses.