解锁一组日期，依据特定的月份细胞在另一列

Question

我得得当设置VBA代码，以便让Excel解锁编辑仅适用于基于另一列日期的行中的特定列的电池有问题。

我有一个日期范围在列“A”（由一个月前进）的，和地点用于插入数据I.A.在“ I”列中。一方面，出于不同列的目的，我每年需要在“ A”列中全部使用12个月，而我希望允许工作表的用户仅在有行的单元格中进行“ I”列中的条目March在列 “A”。每年直到“ A”列中列表的末尾。

到目前为止，对于相似的情况，我尝试了许多不同的代码示例，但是没有一个起作用。似乎我的大部分问题是与If或Month公式相关的LMonth的正确定义。

下面，我尝试过的其中一个代码：

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer

  For i = 2 To 319

    If Cells(i, 1).Month = "3" Then
      Cells(i, 9).Locked = False
    ElseIf Cells(i, 1).LMonth <> 3 Then
      Cells(i, 9).Locked = True
    End If

  Next i

End Sub

运行这样的代码后，我接收

  

运行时错误'438'：对象不支持此属性或方法

花了这么多时间上，仍然没有结果，所以我会任何帮助真的很感激！ 提前非常感谢！