我来帮你排查并修复这段代码的问题，先说说原代码里几个容易踩坑的点，再给你调整后的可用版本：

原代码的潜在问题 #

• 依赖ActiveSheet不可靠：打开工作簿时激活的工作表不一定是你要操作的目标表，会导致代码操作错工作表
• 密码不一致：解锁用的是125487，保护用的是Password，后续要解锁工作表时会因为密码不匹配失败，而且如果原工作表的保护密码不是125487，第一步Unprotect就会直接报错
• 仅触发一次检查：只有打开工作簿的瞬间会检查时间，如果打开时还没到10:01，之后时间到了不会自动执行锁定逻辑

修正后的代码版本 #

版本1：打开工作簿时检查时间，符合条件则锁定目标区域 #

这个版本解决了工作表引用和密码不一致的问题，建议你指定具体的工作表名称（比如Sheet1，改成你实际的表名），并统一密码：

Private Sub Workbook_Open()
    ' 指定目标工作表，替换成你实际的工作表名称或代码名
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 统一密码，避免后续解锁出错
    Const PROTECT_PASSWORD As String = "125487"
    
    If Time > TimeValue("10:01:00 AM") Then
        On Error Resume Next ' 防止工作表未保护时解锁报错
        targetSheet.Unprotect Password:=PROTECT_PASSWORD
        On Error GoTo 0
        
        ' 先确保其他单元格可以编辑（如果需要的话，不需要可以删掉这段）
        targetSheet.Cells.Locked = False
        ' 锁定目标区域
        targetSheet.Range("B2:B40").Locked = True
        
        ' 保护工作表，允许必要的操作（比如选中单元格）
        targetSheet.Protect _
            Password:=PROTECT_PASSWORD, _
            UserInterfaceOnly:=True, _
            AllowSelectingLockedCells:=True
        
        ThisWorkbook.Save
    End If
End Sub

版本2：打开工作簿后，到10:01自动锁定（更贴合需求） #

如果希望不管什么时候打开工作簿，只要到了10:01就自动锁定，需要用Application.OnTime来定时触发：

Private Sub Workbook_Open()
    ' 设置定时任务，每天10:01执行锁定逻辑
    Application.OnTime _
        EarliestTime:=TimeValue("10:01:00 AM"), _
        Procedure:="LockTargetRange", _
        Schedule:=True
    
    ' 打开时如果已经过了10:01，直接执行锁定
    If Time > TimeValue("10:01:00 AM") Then
        LockTargetRange
    End If
End Sub

' 单独的锁定逻辑子程序
Sub LockTargetRange()
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1") ' 替换成你的表名
    Const PROTECT_PASSWORD As String = "125487"
    
    On Error Resume Next
    targetSheet.Unprotect Password:=PROTECT_PASSWORD
    On Error GoTo 0
    
    targetSheet.Cells.Locked = False ' 可选：让其他单元格可编辑
    targetSheet.Range("B2:B40").Locked = True
    
    targetSheet.Protect _
        Password:=PROTECT_PASSWORD, _
        UserInterfaceOnly:=True, _
        AllowSelectingLockedCells:=True
    
    ThisWorkbook.Save
End Sub

' 关闭工作簿时取消定时任务（避免Excel后台残留任务）
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime _
        EarliestTime:=TimeValue("10:01:00 AM"), _
        Procedure:="LockTargetRange", _
        Schedule:=False
    On Error GoTo 0
End Sub

额外注意事项 #

• 确保你启用了宏：Excel默认禁用宏，需要把工作簿保存为.xlsm格式，打开时允许启用宏
• UserInterfaceOnly:=True这个参数很有用：设置后，VBA代码可以直接操作受保护的工作表，不需要每次都解锁再保护
• 如果不需要其他单元格可编辑，可以删掉targetSheet.Cells.Locked = False这一行，默认所有单元格都是Locked=True，保护后整个工作表都会被锁定；如果只想锁定B2:B40区域，那必须保留这行来解锁其他单元格

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