未知工作表名称时锁定指定单元格的VBA代码问题求助

原代码存在的核心问题 #

• 路径拼接逻辑错误：每次循环会将文件名累加到sLctn，导致后续打开的路径完全无效（比如第一次是路径\文件1，第二次变成路径\文件1\文件2），无法正确定位工作簿。
• 工作表对象引用错误：循环遍历Worksheets时，使用ActiveSheet操作而非当前循环的ws对象，只会重复修改打开后的第一个工作表，而非所有工作表。
• 关键字冲突：Exit是VBA内置关键字，不能用作跳转标签，会引发语法错误。
• 缺少变量声明：未声明的变量默认是变体类型，容易触发不可预期的错误。
• 未保存关闭工作簿：修改后未保存就直接结束，导致所有修改不会生效，且残留大量打开的工作簿占用资源。
• 锁定后未重新保护工作表：仅设置单元格Locked=True但不重新保护工作表，锁定状态不会生效，甚至可能因工作表状态异常导致属性设置失败。

修正后的完整代码 #

Option Explicit

Sub BatchLockSpecificCell()
    Dim sPwd As String
    Dim sBasePath As String
    Dim sFileName As String
    Dim i As Integer
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 读取密码和基础路径（指定Sheet1避免ActiveSheet歧义）
    sPwd = Trim(Sheet1.Range("A1").Value)
    sBasePath = Trim(Sheet1.Range("A2").Value)
    ' 确保基础路径末尾带反斜杠，避免拼接错误
    If Right(sBasePath, 1) <> "\" Then
        sBasePath = sBasePath & "\"
    End If
    
    For i = 21 To 61
        sFileName = Trim(Sheet1.Range("B" & i).Value)
        ' 单元格为空时退出循环
        If sFileName = "" Then GoTo ExitLoop
        
        ' 拼接当前工作簿的完整路径
        Dim fullFilePath As String
        fullFilePath = sBasePath & sFileName
        
        ' 打开工作簿并赋值给对象变量，替代ActiveWorkbook
        Set wb = Workbooks.Open(Filename:=fullFilePath)
        
        ' 解锁工作簿结构（如果有保护）
        If wb.ProtectStructure Then
            wb.Unprotect Password:=sPwd
        End If
        
        ' 遍历当前工作簿的所有工作表
        For Each ws In wb.Worksheets
            ' 解锁工作表内容（如果有保护）
            If ws.ProtectContents Then
                ws.Unprotect Password:=sPwd
            End If
            
            ' 锁定指定单元格（Cells(3,14)对应N3单元格）
            ws.Cells(3, 14).Locked = True
            
            ' 重新保护工作表，可根据需求调整保护参数
            ws.Protect Password:=sPwd, UserInterfaceOnly:=False, AllowFormattingCells:=False
        Next ws
        
        ' 保存修改并关闭工作簿
        wb.Close SaveChanges:=True
    Next i
    
ExitLoop:
    MsgBox "批量锁定操作完成！"
End Sub

关键修改说明 #

1. Option Explicit强制变量声明：避免因隐式变量类型导致的错误，提升代码稳定性。
2. 路径拼接优化：分离基础路径和文件名，每次循环单独生成完整路径，确保工作簿定位正确。
3. 对象化操作：使用wb（工作簿对象）和ws（工作表对象）直接操作，彻底替代ActiveWorkbook/ActiveSheet，避免激活状态引发的错误。
4. 保护状态判断：仅在工作簿/工作表处于保护状态时执行解锁操作，减少不必要的错误触发。
5. 重新保护工作表：设置单元格锁定后立即重新保护工作表，确保锁定状态生效。
6. 合法跳转标签：将Exit改为ExitLoop，避免与VBA关键字冲突。

内容的提问来源于stack exchange，提问作者Andrea G.