如何提升Excel VBA中工作表激活时解锁大区域的效率？

当然可以通过批量设置单元格属性来解决这个延迟问题！你的原代码里最大的性能瓶颈在于逐个遍历并选中每个单元格来修改Locked属性——尤其是A14:O425这个超大区域，循环操作会产生大量不必要的Excel界面交互，直接拖慢了加载速度。

原代码的问题点 #

原代码中这段循环是拖慢速度的核心：

For Each ce In rng
    ce.Select
    Selection.Locked = "False"
Next ce

每一次Select和Selection操作都会触发Excel的界面交互，哪怕关闭了ScreenUpdating，单个单元格的属性修改还是会比批量操作慢很多，大面积区域的循环更是会放大这个问题。

优化后的代码 #

直接对合并后的整个区域批量设置Locked属性，完全不需要循环：

Dim ws As Worksheet
Dim rng As Range

Set ws = ActiveSheet
Set rng = Union(ws.Range("B4:B9"), ws.Range("E4:E9"), ws.Range("I4:I10"), ws.Range("B10"), ws.Range("A14:O425"))

Application.ScreenUpdating = False
ws.Unprotect Password:="mediate"

' 关键优化：直接对整个区域批量设置Locked属性，无需循环
rng.Locked = False

ws.Protect Password:="mediate", UserInterfaceOnly:=True, AllowFormattingCells:=True
Application.ScreenUpdating = True

优化原理 #

• 批量操作将原本成千上万次的单个单元格属性修改，合并成一次操作，大幅减少VBA与Excel后台的交互次数
• 保留Application.ScreenUpdating = False可以进一步避免不必要的界面刷新开销
• UserInterfaceOnly:=True的设置依然有效，后续无需反复解锁工作表就能通过VBA修改单元格内容

这样修改后，工作表激活时的延迟会显著降低，尤其是针对A14:O425这种大面积区域的处理效率会提升非常多。

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