Excel VBA技术求助：锁定工作表除B/C列B4下方区域及表头锁定方法

一、解锁指定单元格的代码修正 #

你的代码逻辑完全搞反了：你需要锁定所有单元格，仅解锁B5及以下、C5及以下，但原代码却把B1:C4设为未锁定，而且Excel单元格默认属性是Locked = True，所以保护后所有单元格还是处于锁定状态。

正确的操作步骤：

1. 取消工作表保护
2. 重置所有单元格为锁定状态（避免之前的设置干扰）
3. 选中B5到B列最后一行、C5到C列最后一行的区域，设置为未锁定
4. 重新保护工作表

修正后的VBA代码：

Sub UnlockTargetCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Template")
    
    ' 取消工作表保护
    ws.Unprotect Password:="word"
    
    ' 先锁定所有单元格，重置初始状态
    ws.Cells.Locked = True
    
    ' 解锁B5及以下、C5及以下的单元格
    ws.Range("B5:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row).Locked = False
    ws.Range("C5:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row).Locked = False
    
    ' 重新保护工作表，允许编辑未锁定单元格
    ws.Protect Password:="word", AllowEditRanges:=True
End Sub

说明：

• 用ws.Cells(ws.Rows.Count, "B").End(xlUp).Row自动获取B列最后一行的行号，避免硬编码固定行数
• 保护时添加AllowEditRanges:=True，确保未锁定单元格可以正常编辑

二、表头锁定的两种实现方式 #

1. 表头单元格锁定（禁止编辑） #

如果是指表头区域（比如第1-4行）不能被编辑，只需要确保这些单元格的Locked = True（Excel默认就是该状态），在保护工作表后自然无法编辑——上面的修正代码已经先把所有单元格设为锁定，所以表头会自动被锁定。

2. 滚动时表头固定（冻结窗格） #

如果是指滚动工作表时表头始终显示，可用VBA实现冻结窗格：

Sub FreezeHeader()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Template")
    
    ' 冻结第4行以下区域，让第1-4行作为表头固定显示
    ws.Activate
    ws.Range("A5").Select
    ActiveWindow.FreezePanes = True
End Sub

手动操作的话，直接选中A5单元格，点击「视图」选项卡→「冻结窗格」→「冻结拆分窗格」即可。

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