Olá, Rodrigo.
Seguem duas sugestões.
opção1 - dispara o código ao selecionar uma célula da coluna 'E' ou da coluna 'G'
Código: Selecionar todosPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 And Target.Column <> 7 Or Target.Locked = True Then Exit Sub
If MsgBox("Confirma o lançamento de data e hora?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Me.Protect "SuaSenha", UserInterFaceOnly:=True
Target.Value = Date: Target.Offset(, 1) = Time
Target.Locked = True: Target.Offset(, 1).Locked = True
End Sub
opção2 - dispara o código ao aplicar duplo clique em uma célula da coluna 'E' ou da coluna 'G'
Código: Selecionar todosPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 And Target.Column <> 7 Or Target.Locked = True Then Exit Sub
If MsgBox("Confirma o lançamento de data e hora?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Me.Protect "SuaSenha", UserInterFaceOnly:=True
Target.Value = Date: Target.Offset(, 1) = Time
Target.Locked = True: Target.Offset(, 1).Locked = True: Cancel = True
End Sub
1. funcionamento - o código irá inserir a data na célula selecionada/clicada e a hora na célula à direita, e irá bloquear ambas as células
2. preparação da planilha - antes de instalar um dos códigos, em uma planilha vazia, coloque os títulos de coluna na linha 1 (desejável que essas células sejam protegidas) e só isso (nunca mescle células)
3. não utilize os dois códigos simultaneamente na mesma planilha
4. coloquei nos códigos um comando para exibir uma caixa de mensagem pedindo a confirmação da operação, se desejar inibir a caixa coloque um apóstrofo no início da linha (
'If MsgBox ...)
5. substitua a senha no código se desejar
6. lembrando que para impedir o fácil acesso de outros usuários ao editor de VBA, onde a senha poderá ser vista, proteja o Projeto VBA ---> Ferramentas / Propriedades / Proteção
7. para instalar os códigos:
Instale o código no módulo da planilha, assim:
a. copie o código daqui
b. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
c. cole o código na janela em branco que vai se abrir
d. feito! 'Alt+Q' para retornar para a planilha e testar