Botão que insere data do clique e muda cor de texto em células diferentes

Question

Prezados, eu gostaria de criar um botão que modificasse a cor do texto de uma célula (B3 por exemplo), e inserisse a data do clique noutra (k3, por exemplo), sem permitir que fossem alteradas novamente.

Grato,

André

Answer 1

André,

a nível inicial podes fazer assim:

Private Sub CommandButton1_Click()
  
  If Range("K3").Value = "" Then
      Range("B3").Font.ColorIndex = 3
      Range("K3").Value = Now
  End If
  
End Sub

---

Natan

Answer 2

Oi Natan, muito obrigado pela rápida resposta.

O código funcionou muito bem, contudo eu gostaria de saber se as células modificadas pela macro (B3 e K3) poderiam ser bloqueadas após o clique no botão, de modo que não possam ser modificadas novamente.

Grato,

André

Answer 3

André,

a forma que vejo pra isso é bloquear as células e dentro do método colocar os trechos:

sheets("nomeDaSuaSheet").Unprotect

'Faz o procedimento 

sheets("nomeDaSuaSheet").Protect

Mas como é excel essa regra pode ser facilmente burlada.

---

Natan

Answer 4

Natan, na planilha tenho 60 botões com a macro que você me passou. Todos estão funcionando muito bem, graças à sua ajuda. Tive apenas que modificar as macras um pouquinho, ficando assim:

Sub Remove3()
'
' Remove3 Macro
'
If Range("K3").Value = "" Then
      Range("B3").Font.ColorIndex = 3
      Range("K3").Value = Now
  End If
End Sub

________________

Sub Remove4()
'
' Remove4 Macro
'
If Range("K4").Value = "" Then
      Range("B4").Font.ColorIndex = 3
      Range("K4").Value = Now
  End If
End Sub

___________

Etc.

Como posso editar o método, de modo que abranja todas células modificadas pelos botões?

Grato,

André