VBA锁定一个单元格

Question

我试图阻止J7被编辑，但似乎无法获得正确的代码。如果有任何关于如何调整下面的工作表选择更改代码的建议，我们将不胜感激！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G26:BA9999")) Is Nothing And Range("G" & Target.Row).Value <> Empty Then
Range("B2").Value = Target.Row
Initiative_Load
End If
If Not Intersect(Target, Range("L17,L19,U3,U5,U7,U9,U11,U13,U15,U17,U19,U21")) Is Nothing Then
CalendarFrm.Show
End If
If Not Intersect(Target, Range("J7")) Is Nothing Then
Range("J7").Locked = True
End If
End
End Sub

Answer 1

一般情况下：

1. 确保工作表不受保护
2. 调整单元格或单元格组的锁定/解锁状态
3. 重新保护工作表

Sub Lock_J7()
Sheets("Sheet1").Unprotect Password:="secret"
Cells.Locked = False
Range("J7").Locked = True
Sheets("Sheet1").Protect Password = "secret"
End Sub