excel - 遍历工作表并锁定特定单元格

Question

你能帮我遍历表格并只锁定指定的范围吗？我已经尝试过这样的事情，但它不能正常工作:

Sub LoopThru()
    Dim N As Long, i As Long
    
    With Sheets("Sheet1")
        N = .Cells(Rows.Count, "A").End(xlUp).Row
        For i = 1 To N
            Sheets(.Cells(i, "A").Value).Select
            Sheets(.Cells(i, "A").Value).Locked = False
            Sheets(.Cells(i, "A").Value).FormulaHidden = False
            Sheets(.Cells(i, "A").Value).Range("A1:X1").Locked = True
            Sheets(.Cells(i, "A").Value).Protect Password:="abcd1"
        Next i
    End With
End Sub

我正在尝试遍历文档中的工作表列表并解锁所有单元格，然后仅锁定指定范围(使用密码)。

Answer 1

这里。
遍历 A 列中列出的工作表，解锁每个工作表上的所有单元格，然后锁定特定范围并使用密码 xxx 锁定工作表。

Sub PS()
    Dim N As Long, i As Long

    With Sheets("Sheet1")
        N = .Cells(Rows.Count, "A").End(xlUp).Row
        For i = 1 To N
            Sheets(.Cells(i, "A").Value).Select
            Sheets(.Cells(i, "A").Value).Cells.Locked = False
            Sheets(.Cells(i, "A").Value).Range("A1:X1").Locked = True
            Sheets(.Cells(i, "A").Value).Protect Password:="xxx"
        Next i
    End With
End Sub

要通过以下方式解锁循环:

Sheets(.Cells(i, "A").Value).Unprotect "xxx"