Estou tentando melhorar a planilha de controle da empresa que trabalho, mas estou tendo problema.
Temos que registrar a ligação de um cliente, já consegui fazer para a planilha preencher a Data e Hora automaticamente após preencher o campo Nome. O que quero agora é proteger os campos Data e Hora nesse momento, para que não possa ser alterado. O que está acontecendo é que em algumas linhas o excel bloqueou a linha inteira. Alguém pode me ajudar?
Esse é o código que fiz até aqui.
Private Sub Worksheet_Change(ByVal Alvo As Range)
Dim limite_maximo As Integer
limite_maximo = 4000 ' limite ultima linha
If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub
' faz nada se mais de uma célula modificada ou se deu delete
If Alvo.Column = 5 And Alvo.Row >= 4 And Alvo.Row <= limite_maximo Then
' o if acima seta onde vai iniciar e o range e = 5 (coluna), row (linha = 4)
' desliga captura do evento change
Application.EnableEvents = False
' muda a célula E da linha correspondente
' Desprotege
ActiveSheet.Unprotect
Alvo.Offset(0, -1).Value = Time() ' Registra a hora (A = 0, D = 3)
Alvo.Offset(0, -2).Value = Date ' Registra a data (A = 0, E = 4)
Linha = Alvo.Row
Range("C" & Linha).Locked = True
Range("e" & Linha).Locked = True
' Protege
ActiveSheet.Protect
' religa a captura de eventos
Application.EnableEvents = True
End If
End Sub
Essa é a planilha