Macro que identifica usuário que alterou determinada célula. vba

[Guilherme Pompermayer]

Prezados, estou tentando estabelecer um controle de usuários que realizam alterações em uma determinada planilha do Excel.

 

Para tal fato, estou usando a seguinte programação em VBA.

 

Function NomeUsuario()
NomeUsuario = Application.UserName
End Function
 

Na célula que quero trazer a informação do usuário que realizou as alterações naquela linha, incluo o comando =NomeUsuario().

 

Até ai tudo bem, o problema que estou enfrentando é que após eu realizar as alterações, aparece na célula o meu nome (Guilherme), salvo e fecho a planilha. 
Quando novo usuário abre a mesma, as células que continham o meu nome (Guilherme), são alteradas para o nome do usuário que esta alterando a planilha (Roberto),
não ficando salvo assim o usuário que fez a alteração, mas sim o usuário que está com a planilha aberta.

 

Alguém pode me ajudar a resolver este problema?

[Basole]

cole o cod abaixo no modulo da sua aba

 

Private Sub Worksheet_Activate()
' altere a celula desejada
activeseet.Range("C1").Value = NomeUsuario

End Sub

 

[Guilherme Pompermayer]

Colei o cod abaixo da minha macro no modulo e está funcionando!
 

Para aplicar a solução a toda a planilha devo colocar ao invés de ("C1") devo colocar ("C:C")?

[Basole]

Para aplicar em todas a planilha use activeSheet.cells.value = NomeUsuario. 

Mas dessa forma a macro ira tentar inseri o respecitivo usuario em todas as celulas da sua aba.

 

Bom não sei exatamente como ira utilizar sua plainha, nas tente desta forma:

Mantenha a sua Funcao NomeUsuario no Standart Modulo e

cole a macro abaixo, no modulo da sua respectiva aba:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Formula = "=NomeUsuario()" Then
Target.Value = NomeUsuario
End If
End Sub

Como utilizar: -> Na celula desejada, digite a Funcao NomeUsuario como fazia anteriormente -> =NomeUsuario() e a macro ira sobrepor a formula com nome do usuario atual, automaticamente.

 

[Guilherme Pompermayer]

Apliquei a solução apresentada e a planilha está perfeita.

Muito obrigado pelo apoio.