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