excel - 解锁excel vba中 protected 工作表中的列

Question

Private Sub Worksheet_Activate()
ActiveSheet.Protect "RS"
ActiveSheet.Range("B:C").Locked = False
End Sub

我正在尝试上面的代码但不工作，我只想解锁 B 和 C 列

Answer 1

在解锁范围之前，您正在保护工作表。但是由于工作表受到保护，因此无法解锁范围。交换这两行代码将起作用:

Private Sub Worksheet_Activate()
ActiveSheet.Range("B:C").Locked = False ' unlock the cells, so they can be edited in a protected sheet
ActiveSheet.Protect "RS" ' protect the sheet so only unlocked cells can be edited
End Sub