Excel VBA选择工作表单元格区域触发运行时错误1004原因咨询

报错根因 #

三种写法全部报错的核心原因有两点：

• 你传入Range(起始单元格, 结束单元格)的两个参数顺序完全颠倒。VBA构造连续单元格区域时，要求第一个参数是区域的左上角单元格，第二个参数是区域的右下角单元格，前者行号、列号必须小于等于后者。你写的Selection.Offset(640, 1)是选中位置向下偏移640行、向右偏移1列的单元格，行、列序号都大于第二个参数Selection.Offset(0,0)（即当前选中单元格本身），相当于定义了一个起点在终点右下方的无效区域，Excel无法解析该对象，直接抛出错误。
• 存在隐性跨表引用风险：全局Selection对象默认绑定当前活动工作表，如果你调用Sheet1.Range/ws.Range时，活动工作表不是Sheet1，传入的Selection属于其他工作表，跨表的单元格参数无法被对应工作表的Range方法识别，同样会触发1004错误。

修复方案 #

调整参数顺序，同时显式绑定所有单元格对象到目标工作表，避免依赖默认活动对象：

Private Sub UnlockSheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ' Select方法仅对活动工作表生效，操作前先激活目标表
    ws.Activate
    ' 严格按照左上-右下顺序传入单元格参数，所有单元格对象显式绑定ws
    ws.Range(ws.Selection.Offset(0, 0), ws.Selection.Offset(640, 1)).Select
End Sub

优化建议 #

绝大多数VBA场景下不需要选中单元格即可直接操作，跳过Select步骤可以大幅提升代码运行效率，同时避免激活工作表带来的上下文切换问题：

Private Sub UnlockSheet()
    Dim ws As Worksheet
    Dim targetRng As Range
    Set ws = ThisWorkbook.Sheets(1)
    ' 直接绑定目标区域，无需激活工作表、无需选中
    Set targetRng = ws.Range(ws.Selection.Offset(0, 0), ws.Selection.Offset(640, 1))
    ' 直接执行解锁操作
    targetRng.Locked = False
End Sub

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