VBA修改表单ComboBox的ListFillRange时报‘请求的形状被锁定无法选择’错误

这个错误的核心问题在于你代码里用了Select方法去选中下拉控件，但要么是这个控件被设置了禁止选中的属性，要么是所在工作表处于保护状态，导致无法通过选中操作来修改它。其实VBA操作表单控件根本不需要先选中对象，直接定位到控件本身修改属性就可以完美避开这个问题，而且代码会更高效简洁。

修改后的优化代码 #

Dim ddShape As Shape
Dim targetFillRange As String

' 根据Home表K17的值判断要使用的填充范围
If Worksheets("home").Range("K17").Value = "December" Then
    targetFillRange = "Lists!$D$16:$D$27"
Else
    targetFillRange = "Lists!$D$2:$D$13"
End If

' 直接获取下拉控件对象，完全不需要Select操作
Set ddShape = Worksheets("Home").Shapes("Drop Down 2")
With ddShape
    .ListFillRange = targetFillRange
    .LinkedCell = "Home!$J$11"
    .DropDownLines = 12
    .Display3DShading = True
End With

代码改进的关键点 #

• 移除Select和Selection：直接通过Worksheets("Home").Shapes("Drop Down 2")定位到控件对象，绕开了“选中控件”的步骤，从根源上避免了锁定选中的错误。
• 简化重复逻辑：把判断后不同的填充范围用变量存储，后续统一在一个With块里设置属性，减少冗余代码，也更易维护。

额外处理：如果工作表处于保护状态 #

如果你的Home工作表是保护状态的，还需要临时解除保护再操作，完成后重新保护（如果有密码记得替换成你的实际密码）：

Dim wsHome As Worksheet
Set wsHome = Worksheets("Home")

' 临时解除保护（无密码则留空字符串，有密码替换为你的密码）
If wsHome.ProtectContents Then
    wsHome.Unprotect Password:=""
End If

' 执行控件属性修改的代码
Dim ddShape As Shape
Dim targetFillRange As String
If wsHome.Range("K17").Value = "December" Then
    targetFillRange = "Lists!$D$16:$D$27"
Else
    targetFillRange = "Lists!$D$2:$D$13"
End If
Set ddShape = wsHome.Shapes("Drop Down 2")
With ddShape
    .ListFillRange = targetFillRange
    .LinkedCell = "Home!$J$11"
    .DropDownLines = 12
    .Display3DShading = True
End With

' 重新保护工作表（可根据需求调整保护选项）
wsHome.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True

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