可以根據另一個單元格的值鎖定單元格范圍嗎？

Question

我正在使用跟蹤器來測試新更改以及何時進行測試。 如果新更改為N / A，我不想將其刪除，而是要禁用（並變灰）所有可用於選擇完成日期的單元格。 但僅在那一行。 我嘗試使用以下方法，但還沒有碰運氣：

1. 工作表上的條件格式
2. 進行更改時執行的VBA代碼
3. 數據驗證（認為這是可能的，但不了解其實際工作原理）

這是我的代碼：

 Private Sub worksheet_change(ByVal Target As Range)

     Dim keycells As Range

     Set keycells = Range("G:G")

     lastcol = CInt(Sheet1.Cells(1,Sheet1.Columns.Count).End(xlToLeft).Column)

     If Not Application.Intersect(keycells, Range(Target.Address)) Is Nothing Then
         r = Range(Target.Address).Row
         MsgBox "There was a change"
         If Range(Target.Address).Value = "N/A" Then
             MsgBox "we got this far"
             Range("H" & r & ":" & Cells(r, lastcol).Address).Locked = True
         End If

     End If

End Sub

兩個消息框都顯示，但單元格未鎖定。 因此，我嘗試解鎖所有單元，然后保護工作表。 然后，將某些內容設置為“ N / A”，並收到錯誤消息“無法設置范圍類的Locked屬性”。

這是我的數據的樣子：

提前致謝！

Answer 1

嗯， 社區一直（幾天來）一直堅持我在看這個問題，並將其無情地推到我的“相關”隊列的頂部，這可能是因為它被貼上了我的前4個標簽， 並且從技術上講它沒有答案。

因此，對不起Moacir ，我正在刷您的“評論的答復”：

---

1. 保護它，

2. 做Worksheet.Unprotect ，

3. 之后運行您的代碼（和Worksheet.Protect ）。

---

更多信息：

• Microsoft： Worksheet.Protect方法 （Excel）

• Microsoft： Worksheet.Unprotect方法 （Excel）

• SO： 如何保護Excel中的單元格，但允許通過VBA腳本修改它們