尝试调整

Question

我有一张工作表，员工在Excel中的每一行输入预订。我试图创建阻止他们跳过行的代码。

我在Col W中有一个公式，用于确定在特定行（Col C：K）中填充了多少个单元格，以便该行至少具有所需的大部分信息。我在该表中有一个工作表更改事件，当公式达到6时，代码应该解锁下一行Col C：K，允许用户使用下一行。我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim c As Range

Set rng = Range("W6:W504")
For Each c In rng
    If c.Value >= 6 Then
        Worksheets("January").Unprotect Password:="XXX"
        c.Offset(1, -20).Resize(0, 8).Locked = False       'should unlock C7:K7
    End If
Next c

End Sub

我试图将偏移线和调整大小的线组合起来，在单独的行中输入它们，选择它们然后应用解锁，但都无济于事。我最接近的是分离偏移和调整大小，并在下一行（C7）上选择适当的单元格，但我无法调整大小然后应用锁定。谢谢！