lhbessa,

Essa macro infelismente não aceita desfazer(Pelo menos no intervalo que ela atua"A1:E200")
Vamos esperar a ajuda dos Mestres em macro, mais na minha opinião acho que ñ tem como desfazer não.

Abraço.

Realizei algumas pesquisas, e até dizem que se é possivel a criação de rotinas "Undo" atrelada a Eventos das WorkSheets, mas é bem complicado, e pra dizer a verdade, com um grau de dificuldade que dependendo do que se quer fazer ficaria inviável, e até passa dos limites de meua estudos em VBA.

Para se ter um exemplo, no site abaixo tem uma ótima explicação do assunto, e um exemplo para baixar, mas os "undo" e o "ResetUndo" funcionam somente nas alterações efetudas pelas rotinas na mesma, seria o caso de adaptar, mas em algumas tentativas, não obtive sucesso, então fica ai para quem quiser tentar :

Creating An Undo Handler To Undo Changes Done By Excel VBA
http://www.jkp-ads.com/Articles/UndoWithVBA00.asp

Outro link interessante são estes :
http://gmarcan.blogspot.com/2007/09/und ... l-vba.html

Undoing A VBA Subroutine
http://spreadsheetpage.com/index.php/si ... ubroutine/

Temos aqui no forum um exemplo que grava todas as alterações em um arquivo dde Log, bem interessante tambem :
viewtopic.php?f=16&t=1826&hilit=log&start=10

No site abaixo eu cheguei anexar dois modelos, para v 2003 e 2007 :
Log com as Alterações nas Planilhas v 2003 - v 2007
http://www.tomasvasquez.com.br/forum/vi ... 9&start=10

Espero que ajude de alguma forma.

[]s

Bo noite!!!

Se entendi bem esse código faz isso que você quer.

O problema é que ele deve ser adaptado pois, tem uma input box, que talvez não te agradará

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue As Variant, OldValue As Variant
    If Application.UserName <> "elaoraculo" Then Exit Sub
    If Target.Count > 1 Then Exit Sub
     'Say you want to work with the range A1:F100
    If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
        NewValue = Target.Value
        Application.EnableEvents = False
        Application.Undo
        OldValue = Target.Value
        If OldValue = "" Then
    Target.Value = NewValue
ElseIf InputBox("Caso tenha permição entre com a senha") = "ale" Then
    Target.Value = NewValue
Else: MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas"
    Target.Value = OldValue
    End If
        Application.EnableEvents = True

Tem uma outra maneira

Veja...terá que adaptar, pois é usado em um botão de um UserFrom

Private Sub CommandButton1_Click()

  If TextBox1.Value = "ale" Then
     ActiveSheet.Unprotect Password:="ale"
          If OptionButton1 Then
             Selection.Locked = False
          Else
             Selection.Locked = True
          End If
      ActiveSheet.Protect "ale", UserInterfaceOnly:=False
  Else
      MsgBox "Sua senha está incorreta,Tente novamente.", vbCritical, "Atenção!"
  End If
  
 Unload Me
 
End Sub

Bo noite!!!

Se entendi bem esse código faz isso que você quer.

O problema é que ele deve ser adaptado pois, tem uma input box, que talvez não te agradará

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue As Variant, OldValue As Variant
    If Application.UserName <> "elaoraculo" Then Exit Sub
    If Target.Count > 1 Then Exit Sub
     'Say you want to work with the range A1:F100
    If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
        NewValue = Target.Value
        Application.EnableEvents = False
        Application.Undo
        OldValue = Target.Value
        If OldValue = "" Then
    Target.Value = NewValue
ElseIf InputBox("Caso tenha permição entre com a senha") = "ale" Then
    Target.Value = NewValue
Else: MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas"
    Target.Value = OldValue
    End If
        Application.EnableEvents = True

Tem uma outra maneira

Veja...terá que adaptar, pois é usado em um botão de um UserFrom

Private Sub CommandButton1_Click()

  If TextBox1.Value = "ale" Then
     ActiveSheet.Unprotect Password:="ale"
          If OptionButton1 Then
             Selection.Locked = False
          Else
             Selection.Locked = True
          End If
      ActiveSheet.Protect "ale", UserInterfaceOnly:=False
  Else
      MsgBox "Sua senha está incorreta,Tente novamente.", vbCritical, "Atenção!"
  End If
  
 Unload Me
 
End Sub

Alexandrevba, testei o primeiro código que você postou, fiz as adaptações necessárias, mas o resultado foi semelhante ao obtido com o código que eu postei inicialmente: as alterações são identificadas e a data é escrita numa célula a parte. Mas, no intervalo onde as alterações são feitas, o recurso do "Desfazer" fica desabilitado.

Mauro Coutinho, acredito que a sua sugestão, de gerar um arquivo de log com as alterações, resolveria meu problema. A questão é que estou em um ambiente corporativo, e infelizmente a licença do Office que temos é a da versão 2010.

Mas, a aprtir da sua sugestão, fiz outra pesquisa e encontrei esse link:
http://www.tomasvasquez.com.br/blog/microsoft-office/excel-gravando-historico-de-alteracoes-na-planilha

Fiz um teste, e por enquanto está funcionando. Não é exatamente o que eu procurava, mas dá pra quebrar o galho. Vou utilizar durante alguns dias, e volto pra dizer se o problema foi resolvido ou não.

Grato.

Bom dia!!!

Imagine a seguinte informação.

Tenho várias pessoa para usar um único arquivo, mas somente delas poderar alterar os dados.

É isso que a rotina faz, mas creio não deve resolver seu problema...

Não faz sentido eu privar a entrada de dados com a opção desfazer habilitada.

Att..

Mauro Coutinho, acredito que a sua sugestão, de gerar um arquivo de log com as alterações, resolveria meu problema. A questão é que estou em um ambiente corporativo, e infelizmente a licença do Office que temos é a da versão 2010.

Mas, a aprtir da sua sugestão, fiz outra pesquisa e encontrei esse link:
http://www.tomasvasquez.com.br/blog/microsoft-office/excel-gravando-historico-de-alteracoes-na-planilha

Fiz um teste, e por enquanto está funcionando. Não é exatamente o que eu procurava, mas dá pra quebrar o galho. Vou utilizar durante alguns dias, e volto pra dizer se o problema foi resolvido ou não.

Grato.

Pessoal, já estamos utilizando a planilha a alguns dias, e o exemplo do link acima resolveu o meu problema. Por enquanto, está funcionando perfeitamente bem, e é uma opção muito interessante para saber as alterações que são feitas no arquivo do Excel.

Sobre a questão de habilitar o recurso "Desfazer": os usuários comuns geralmente utilizam este recurso para cancelar alguma ação, ainda mais quando lidam com planillhas muito grandes, com muitos dados. Não permitir a utilização do recurso pode gerar insatisfação, além de correr o risco de apagar/substituir informação importante de alguma célula. A questão não é privar a entrada de dados, mas sim ter um controle sobre a data em que as alterações forem feitas.