如何用VBA批量锁定指定文件夹子目录下所有Excel的A1:A10单元格

我帮你修改了VBA代码，实现递归遍历所有子文件夹里的Excel文件，批量锁定每个文件中第一个工作表的A1:A10单元格。下面是完整可运行的代码，附带关键逻辑的解释：

Sub LockA1ToA10InAllFiles()
    Dim rootFolder As String
    ' 设置根文件夹路径，所有子文件夹都会被自动遍历
    rootFolder = "C:\Users\mmishal001\Desktop\Project PT Attempt 3\DEMO2 for VBA"
    
    ' 调用递归过程处理所有层级的文件夹
    Call ProcessFolder(rootFolder)
    
    MsgBox "所有文件的A1:A10单元格已完成锁定！", vbInformation
End Sub

' 递归处理文件夹及其子文件夹的核心过程
Sub ProcessFolder(folderPath As String)
    Dim myFiles As String
    Dim subFolders As Object
    Dim subFolder As Variant
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 处理当前文件夹中的所有.xlsx文件
    myFiles = Dir(folderPath & "\*.xlsx")
    Do While myFiles <> vbNullString
        On Error Resume Next ' 跳过打开失败的文件（比如被占用），避免中断整个流程
        Set wb = Workbooks.Open(folderPath & "\" & myFiles, ReadOnly:=False)
        If Err.Number = 0 Then
            Set ws = wb.Sheets(1)
            
            ' 1. 先解除整个工作表的锁定（Excel默认所有单元格都是锁定状态）
            ws.Cells.Locked = False
            
            ' 2. 单独锁定目标区域A1:A10
            ws.Range("A1:A10").Locked = True
            
            ' 3. 保护工作表（可修改密码，或去掉Password参数实现无密码保护）
            ws.Protect Password:="yourpassword", UserInterfaceOnly:=True
            
            ' 保存修改并关闭文件
            wb.Close SaveChanges:=True
        End If
        On Error GoTo 0 ' 恢复默认错误处理
        
        myFiles = Dir()
    Loop
    
    ' 递归处理当前文件夹下的所有子文件夹
    Set subFolders = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath).SubFolders
    For Each subFolder In subFolders
        Call ProcessFolder(subFolder.Path)
    Next subFolder
End Sub

关键逻辑说明： #

• 递归遍历子文件夹：通过ProcessFolder子过程，自动遍历根文件夹下所有层级的子文件夹，不用手动逐个指定文件夹路径，完美适配你的多子文件夹场景
• 单元格锁定逻辑：
  • 先执行ws.Cells.Locked = False解除整个工作表的锁定（因为Excel默认所有单元格都是锁定状态，直接保护会锁全部内容）
  • 再单独锁定A1:A10区域，确保只有目标区域被限制编辑
  • UserInterfaceOnly:=True参数让后续如果需要用VBA操作该工作表时，不需要重复解锁，更灵活
• 容错处理：添加了错误捕获，遇到无法打开的文件会自动跳过，不会导致整个批量任务中断
• 自定义调整：你可以修改rootFolder的路径，或者调整ws.Protect的密码（甚至去掉密码参数）

使用时直接运行LockA1ToA10InAllFiles宏即可，它会自动处理所有子文件夹里的100个Excel文件。

内容的提问来源于stack exchange，提问作者Mishal