如何使用宏锁定单个单元格，但不保护工作表

Question

我希望运行一个宏，它将自动填充某些单元格，然后将信息锁定在宏末尾的单元格中，以便其他用户无法编辑一次填充。

有没有办法使用宏保护/锁定单个单元格而不保护表单？

谢谢

Answer 1

如果您想使用我在评论中提出的建议，以使电子表格感觉不受保护，但不适用于感兴趣的单个单元格。

' set cell range you want to be editable.  I used a random range here
Worksheets("yoursheet").Range("A1:G100").Locked = True
' suppose you want B2 locked
Worksheets("yoursheet").Cells(2,2).Locked = True
' protect the sheet
Worksheets("yoursheet").Protect UserInterfaceOnly:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True