Excel宏可更改单元格值并基于其他单元格值禁用列

Question

如果单元格1的值为A1，则单元格2的值为B1，并且列H应被禁用。

如果单元格1的值为A2，则单元格2的值为B2，并且列H不应禁用。

这是代码，但是对于值“ A1”它不起作用。

Private Function func1(pVal as String) as String
If pVal = "A1"
func1="B1"
Worksheets("Sheet1").Range("H1:h100").Locked=True
ElseIF pVal="A2"
func1="B2"
EndIF
End func1

当用户在呼叫1中选择“ A1”时，在单元格2中收到错误值#value。

Answer 1

工作表单元格中使用的函数只能返回值，而不能锁定或解锁任何内容。 没有子项的最佳效果是：

Public Function func1(pVal As String) As String
    func1 = "What Ever"
    If pVal = "A1" Then
        func1 = "B1"
    Else
        If pVal = "A2" Then
            func1 = "B2"
        End If
    End If
End Function