如何在VBA上locking单元格？

需要一些时间戳做一个单元格编辑certificate一些帮助，这里是我使用的代码：

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

基本上我不希望用户有权编辑单元格A2上的时间戳。 。 任何帮助将不胜感激..预先:)

Answer 1

怎么样使用表保护？

 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