Excel锁定单元格时保持悬停文本可用的方法咨询

原生Excel数据验证的输入信息本质是选中单元格时触发，而非真正的悬停触发，所以单元格被锁定后无法被选中，自然无法显示提示。要实现锁定单元格悬停显示提示，需要通过VBA自定义鼠标事件来实现，以下是两种可行方案：

方案一：用工作表MouseMove事件+临时形状显示提示 #

这种方法无需额外控件，直接通过创建临时文本框形状来展示提示：

1. 按Alt+F11打开VBA编辑器，双击目标工作表（如Sheet1）
2. 粘贴以下代码：

Private Sub Worksheet_MouseMove(ByVal Target As Range, ByVal Cancel As Boolean)
    Dim hoverCell As Range
    Dim tipShape As Shape
    Dim tipText As String
    
    ' 替换为你的实际表头区域
    Set hoverCell = Intersect(Target, Me.Range("A1:Z1"))
    
    ' 清除已存在的提示形状
    On Error Resume Next
    Me.Shapes("HoverTip").Delete
    On Error GoTo 0
    
    If Not hoverCell Is Nothing And hoverCell.Locked Then
        ' 优先读取数据验证的输入信息
        If hoverCell.Validation.Type = xlValidateInputOnly Then
            tipText = hoverCell.Validation.InputMessage
        ' 无数据验证时读取单元格批注文本
        ElseIf Not hoverCell.Comment Is Nothing Then
            tipText = hoverCell.Comment.Text
        End If
        
        If tipText <> "" Then
            ' 创建提示文本框
            Set tipShape = Me.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                Target.Left + 10, Target.Top + 10, 200, 50)
            With tipShape
                .Name = "HoverTip"
                .TextFrame2.TextRange.Text = tipText
                .TextFrame2.WordWrap = True
                .Fill.ForeColor.RGB = RGB(255, 255, 204) ' 浅黄色背景
                .Line.ForeColor.RGB = RGB(0, 0, 0)
                .TextFrame2.TextRange.Font.Size = 10
            End With
        End If
    End If
End Sub

注意事项 #

• 把代码中的A1:Z1替换为你的表头实际区域
• 提示文本会自动读取原数据验证的输入信息，后续修改提示直接改数据验证即可
• 可以调整形状的位置（Left/Top）、大小（宽度/高度）、颜色等参数适配需求

方案二：用UserForm作为自定义提示框 #

如果需要更美观、样式更灵活的提示，可以用UserForm实现：

1. 在VBA编辑器中插入一个UserForm，命名为frmHoverTip，添加一个Label控件（默认Label1），调整控件大小和窗体样式
2. 在目标工作表的代码窗口粘贴以下代码：

Private Sub Worksheet_MouseMove(ByVal Target As Range, ByVal Cancel As Boolean)
    Dim hoverCell As Range
    Dim tipText As String
    
    Set hoverCell = Intersect(Target, Me.Range("A1:Z1"))
    
    ' 隐藏已有提示框
    frmHoverTip.Hide
    
    If Not hoverCell Is Nothing And hoverCell.Locked Then
        ' 读取提示文本逻辑同方案一
        If hoverCell.Validation.Type = xlValidateInputOnly Then
            tipText = hoverCell.Validation.InputMessage
        ElseIf Not hoverCell.Comment Is Nothing Then
            tipText = hoverCell.Comment.Text
        End If
        
        If tipText <> "" Then
            frmHoverTip.Label1.Caption = tipText
            ' 提示框跟随鼠标位置
            frmHoverTip.Top = Application.MousePosition.Y + 10
            frmHoverTip.Left = Application.MousePosition.X + 10
            frmHoverTip.Show vbModeless ' 非模态显示，不阻塞操作
        End If
    End If
End Sub

注意事项 #

• UserForm的显示模式必须设为vbModeless，否则会冻结Excel操作
• 可以通过修改UserForm的背景色、Label的字体、边框等属性，自定义提示样式

方案对比 #

• 形状方案：实现简单，无额外依赖，但样式调整空间有限
• UserForm方案：样式自定义程度高，适合需要统一视觉风格的场景，但需要额外创建窗体

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