如何跨多工作表设置工作簿指定可编辑范围并锁定其余区域

Excel的工作表保护逻辑本身就支持范围级权限控制，不需要额外做复杂的事件拦截：单元格自带默认的Locked属性，工作表保护开启后，只有Locked = False的单元格允许用户编辑，其余单元格会被完全锁定；你之前用到的myWorksheet.Protect contents:=True, userinterfaceonly:=True写法本身是正确的，UserInterfaceOnly:=True参数可以让VBA代码绕过锁定限制，不影响公式计算、宏代码的正常运行，结合单元格的Locked属性配置就能完全匹配需求。

核心实现逻辑 #

• 梳理所有需要开放给用户输入的单元格范围，按工作表归类
• 初始化保护时，先将工作表所有单元格的Locked属性设为True（Excel默认状态），再把需要开放编辑的范围的Locked属性设为False
• 开启带UserInterfaceOnly:=True参数的工作表保护，此时用户只能编辑提前解锁的范围，VBA和公式可正常操作所有单元格，其余内容禁止编辑

参考代码 #

Sub InitWorkbookProtection()
    Dim ws As Worksheet
    Dim editableMap As Object
    Set editableMap = CreateObject("Scripting.Dictionary")
    
    ' 按工作表配置可编辑范围，支持不连续区域，用逗号分隔地址即可
    editableMap.Add "报价输入页", "B3:B12,D5:D20,F8:F15"
    editableMap.Add "参数配置页", "C2:C30,E3:E10"
    ' 有更多需要开放编辑的工作表，按上述格式继续添加即可
    
    For Each ws In ThisWorkbook.Worksheets
        ' 有密码就填在Password参数里，不需要密码就删掉Password相关参数
        ws.Unprotect Password:="your_protect_pwd"
        ' 全局锁定所有单元格
        ws.Cells.Locked = True
        ' 解锁当前工作表配置的可编辑范围
        If editableMap.Exists(ws.Name) Then
            ws.Range(editableMap(ws.Name)).Locked = False
        End If
        ' 开启工作表保护，保留VBA操作权限
        ws.Protect Password:="your_protect_pwd", Contents:=True, UserInterfaceOnly:=True
        ' 按需开放常用操作权限，不需要可以删掉
        ws.EnableAutoFilter = True
        ws.EnableSorting = True
    Next ws
End Sub

关键注意点 #

• UserInterfaceOnly配置不会随工作簿持久化保存，工作簿关闭重开后该设置会失效，需要把上述初始化过程绑定到Workbook_Open事件，打开文件时自动执行，无需手动触发。
• 如果需要在报价计算完成后锁定所有输入区域，不需要解除整张表的保护，直接将对应范围的Locked属性改回True即可即时生效。
• 如果后续需要频繁调整可编辑范围，可以单独建一张隐藏的配置工作表，把各表对应的可编辑地址存在配置表里，代码读取配置加载即可，不需要反复修改VBA代码。
• 该方案为Excel原生保护逻辑，比通过Worksheet_Change事件回滚用户修改的方案稳定性高很多，不会出现事件失效、拦截遗漏的问题，性能也更优。

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