Excel VBA实现指定单元格无False时禁用F9键的问题求助

• 你代码中把False作为字符串"FAŁSZ"进行比对：Excel单元格中存储的布尔值False是逻辑类型，不是字符串，即便是波兰语版本显示为FAŁSZ，底层值依然是布尔类型，加引号后的字符串比对永远不成立，会直接走Else分支执行禁用F9的逻辑，这是你一运行代码F9就被禁用的核心原因。
• 你只写了禁用逻辑，没有做F9恢复的逻辑，即便后续R35变为False，F9也不会恢复可用。
• 单次执行的Sub无法跟随R35的值变化自动触发，不能满足实时生效的需求。

1. 基础逻辑修复 #

先修正比对逻辑，同时补上F9恢复的代码：

Sub UpdateF9Status()
    ' 直接和布尔值False比对，适配所有语言版本的Excel
    If Range("R35").Value = False Then
        ' R35为False时恢复F9默认功能
        Application.OnKey "{F9}"
    Else
        ' 其余情况禁用F9
        Application.OnKey "{F9}", ""
    End If
End Sub

2. 实现单元格值变化自动触发 #

要让逻辑在R35值变更时自动执行，需要绑定工作表变更事件：

1. 按Alt + F11打开VBA编辑器，在左侧项目管理器中双击需要生效的工作表
2. 代码编辑区顶部左侧下拉框选Worksheet，右侧下拉框选Change，自动生成事件框架
3. 填入如下完整代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的单元格是R35时才执行逻辑，减少不必要的性能消耗
    If Not Intersect(Target, Me.Range("R35")) Is Nothing Then
        If Me.Range("R35").Value = False Then
            Application.OnKey "{F9}"
        Else
            Application.OnKey "{F9}", ""
        End If
    End If
End Sub

3. 额外优化建议 #

• 打开文件时自动初始化状态：可在ThisWorkbook的Workbook_Open事件中调用一次UpdateF9Status，避免刚打开文件时F9状态不符合预期
• 关闭文件时恢复F9功能：可在ThisWorkbook的Workbook_BeforeClose事件中添加Application.OnKey "{F9}"，避免禁用状态影响其他Excel文件使用

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