Excel - 如果可能，如何在不使用宏的情况下锁定单元格

Question

我已经使用宏实现了解决方案，但如果可以的话，我想删除它。所以这里的问题

我在单元格上使用验证规则实现了下拉菜单。我希望该单元格是只读的，具体取决于同一张表上第二个单元格中的值。

我尝试使用另一个验证来锁定它，但它不允许我。

任何想法？

Answer 1

我假设数据验证在单元格 A2 中并且您正在检查的值在单元格 A1 中

当您更改单元格 A1 的值时到“Blah Blah”代码将运行然后锁定单元格A2 .在实际运行之前，请花点时间阅读代码中的注释。

代码必须粘贴在工作表代码区域中。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub

    Application.EnableEvents = False

    Dim mypassword As String, StringToCheck As String

    On Error GoTo Whoa

    '~~> Change the password here to protect/unprotect the sheet
    mypassword = "password"

    '~~> Change it to the relevant string with which you want to compare
    StringToCheck = "Blah Blah"

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        '~~> Check for the cell value
        If Target.Value = StringToCheck Then
            '~~> Un-Protect the sheet
            ActiveSheet.Unprotect mypassword

            '~~> Lock the cell
            Range("A2").Locked = True

            '~~> Re-Protect the sheet
            ActiveSheet.Protect mypassword
        End If
    End If

LetsContinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub