VBA双击复选框代码修改：指向隐藏锁定的Calc工作表A1

没问题，我帮你调整这段代码，完美适配你的需求：把操作对象从当前工作表的目标单元格切换到隐藏锁定的"Calc"工作表A1，同时保留双击指定单元格切换Wingdings字体复选框（ü）的功能。

修改后的完整代码 #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅响应指定单元格的双击操作
    If Intersect(Target, Range("E4,E6,I8,E10")) Is Nothing Then Exit Sub
    
    Dim calcSheet As Worksheet
    Set calcSheet = ThisWorkbook.Worksheets("Calc")
    
    ' 临时解除Calc工作表保护（若有密码，添加Password:="你的密码"参数）
    calcSheet.Unprotect
    ' 临时显示工作表，确保能正常修改单元格
    calcSheet.Visible = xlSheetVisible
    
    With calcSheet.Range("A1")
        .Font.Name = "Wingdings"
        ' 切换ü的显示与隐藏状态
        .Value = IIf(.Value = "ü", "", "ü")
    End With
    
    ' 恢复Calc工作表的保护与隐藏状态
    calcSheet.Protect
    calcSheet.Visible = xlSheetHidden
    
    Cancel = True ' 阻止双击后进入单元格编辑模式
End Sub

关键细节说明 #

• 锁定隐藏工作表的操作逻辑：因为"Calc"表是锁定且隐藏的，必须先临时解除保护、取消隐藏才能修改单元格内容，操作完成后立刻恢复保护和隐藏状态，既保证了数据安全，又不影响功能执行。如果你的工作表设置了保护密码，记得在Unprotect和Protect语句中补充密码参数，比如calcSheet.Unprotect Password:="yourPassword"。
• 触发范围保留：原代码中判断双击是否在指定单元格（E4、E6、I8、E10）的逻辑完全保留，确保只有双击这些单元格才会触发后续操作。
• 核心功能迁移：把原本修改当前Target单元格的代码，全部替换为操作calcSheet.Range("A1")，精准实现了功能目标的转移。
• 优化操作体验：Cancel = True依然保留，避免双击后进入单元格编辑模式，让操作流程更顺畅。

后续你就可以基于"Calc"工作表A1单元格的内容（是否为ü）来执行其他计算逻辑啦。

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