使用不同于工作表的密码输入文本后，将单元格锁定在一个范围内

Question

我是excel VBA的新手，我到处都找不到我的答案。在我的工作表“后续日志”中，我希望A1:A70范围内没有文本的单元格允许用户编辑（然后在更改后自动锁定），而那些有文本的单元格始终受到密码保护。我也希望范围使用不同的密码与工作表，并为用户输入密码，任何时候，他们希望编辑与范围内的文本单元格。

我使用的当前代码在输入文本后锁定单元格，但它改变了工作表密码，而不仅仅是单元格，而且只输入一次密码。这有道理吗？下面是我使用的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim blnUnlockedAllCells As Boolean
Const RangeToLock As String = "A2:A70" '<<  adjust to suit

If Target.Cells.Count > 1 Then Exit Sub

If Not blnUnlockedAllCells Then
    Me.Cells.Locked = False
    On Error Resume Next
    Me.Range(CStr(RangeToLock)).SpecialCells(2).Locked = True
    On Error GoTo 0
    blnUnlockedAllCells = True
    Me.Protect Password:="pwd", userinterfaceonly:=True
End If

If Not Application.Intersect(Target, Me.Range(CStr(RangeToLock))) Is Nothing Then
    If Len(Target) Then Target.Locked = True
End If

Answer 1

您不需要锁定它们。我只是录制了这个宏，以了解如何在多个范围内进行操作：

With ActiveSheet
    .Protection.AllowEditRanges.Add Title:="Range1", Range:=.Range("G8:J10"), Password:="qq"
    .Protection.AllowEditRanges.Add Title:="Range2", Range:=.Range("K11:L12"), Password:="aa"
End With

但请记住，如果该人知道如何打开代码窗口，他们将很容易看到您的密码。