如何在VBA上锁定单元格？

Question

Need some help in making a cell edit proof on a Time Stamp, Here is the code I am using :

Sub Start()
    Range("A2").Value = Now()
End Sub

Basically I don't want an user to have access to edit the time stamp on Cell A2 . . Any help will be appreciated..Thanks in advance :)

Answer 1

What about using Sheet protection?

Sub Start()
   'unprotect sheet to edit locked cells'
   ActiveSheet.Unprotect
   'set other cells to be unlocked (I've add this line only because in my excel all cells are locked by defalut, you can delete this line'
   Cells.Locked = False
   'change A2 and make it locked'
   With Range("A2")
       .Value = Now()
       .Locked = True
   End With
   'protect sheet for not allowing change locked cells'
   ActiveSheet.Protect
End Sub