基于更改的特定单元格在Excel中冻结单元格

Question

我曾尝试编写一个VPA，允许我根据下拉框填充的单元格的内容冻结/阻止某些单元格，但我一直收到错误。有人可以帮我看一下吗？

谢谢:)

    Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveSheet.Cells("B6").Text = ("Convenience") Then
    ActiveSheet.Range(("B37"), ("B38"), ("B39"), ("B41"), ("B42"), ("B44"), ("B45"), ("B47"), ("B48")).Locked = True
    Else
    ActiveSheet.Range(("B37"), ("B38"), ("B39"), ("B41"), ("B42"), ("B44"), ("B45"), ("B47"), ("B48")).Locked = False
    End If
    End Sub