Excel VBA 单元格值变更时自动适配行高的代码无效果问题

• 代码放置位置错误：Worksheet_Change 是工作表专属事件，必须放置在对应目标工作表的代码模块中（右键工作表标签→「查看代码」打开的编辑窗口），如果把代码放到普通标准模块中，事件永远不会被触发。
• 变更类型不匹配：Worksheet_Change 仅捕获用户手动输入、VBA直接赋值产生的硬单元格值变更，如果F3的内容是通过公式计算生成的，公式结果变化只会触发Worksheet_Calculate事件，不会触发Change事件。
• 权限限制：如果当前工作表处于保护状态，且未开放行高修改权限，AutoFit操作会静默执行失败，不会抛出错误提示。
• 宏运行状态异常：打开文件时如果未启用宏、或者运行过程中VBA出错导致全局事件开关被关闭，所有VBA事件逻辑都不会运行。

场景1：F3为手动输入/VBA直接赋值的硬值 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 判断变更区域是否与F3存在交集
    If Not Intersect(Target, Me.Range("F3")) Is Nothing Then
        ' 关闭事件避免AutoFit触发连锁变更
        Application.EnableEvents = False
        On Error GoTo SafeExit ' 异常退出时保证事件状态还原
        
        ' 有工作表保护时先临时解除保护，对应密码自行补充
        If Me.ProtectContents Then Me.Unprotect Password:=""
        
        ' 执行第6行自动行高适配
        Me.Rows(6).AutoFit
        
        ' 恢复之前的工作表保护状态
        If Me.ProtectContents Then Me.Protect Password:=""
SafeExit:
        ' 还原事件开关状态，避免全局VBA功能被锁死
        Application.EnableEvents = True
    End If
End Sub

场景2：F3为公式联动生成的计算值 #

由于公式计算结果变化不会触发Change事件，需要改用Calculate事件捕获值变化：

Private Sub Worksheet_Calculate()
    ' 静态变量记录F3上次的取值，避免重复触发适配
    Static lastF3Value As Variant
    
    ' 对比当前值和上次记录值，判断是否发生变更
    If Me.Range("F3").Value <> lastF3Value Then
        lastF3Value = Me.Range("F3").Value
        
        Application.EnableEvents = False
        On Error GoTo SafeExit
        
        If Me.ProtectContents Then Me.Unprotect Password:=""
        Me.Rows(6).AutoFit
        If Me.ProtectContents Then Me.Protect Password:=""
SafeExit:
        Application.EnableEvents = True
    End If
End Sub

• 右键F3单元格查看编辑栏，如果是=开头的公式，直接套用场景2的代码
• 确认代码不在标准Module内，必须放在对应工作表的代码窗口中
• 测试手动选中第6行，通过「开始→单元格→格式→自动调整行高」功能，确认该行本身可以正常自动适配，排除行高被手动固定、工作表权限限制的问题

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