vba - 如何将电子表格中的单元格设置为只读？

Question

我正在使用数据库值填充电子表格。我填充数据的单元格，我希望它们对用户是只读的。我怎样才能做到这一点？

Answer 1

取决于您想要如何选择范围。这只是一个细胞。如果您返回 J1 并更改值，您应该会收到提示。

Private Sub Worksheet_Change(ByVal Target As Range)
  Range("J1").Select
  Selection.Locked = True
  ActiveSheet.Protect Contents:=True
  Range("K1").Select

End Sub

在工作表受到保护之前，单元格不会被锁定。默认情况下，所有单元格都设置为“锁定”，因此您必须解锁您希望用户能够更改的单元格。