如何用VBA隐藏Excel表格中所有数据验证输入消息？

首先，咱们来分析下你遇到的Run-time error '1004'问题：直接选中整个表格的Range后操作Validation，会因为不是所有单元格都配置了数据验证规则而触发错误——比如表格的表头行可能没有设置验证，或者部分数据单元格本身就没有验证规则，这时候调用Selection.Validation就会报错。

下面给你两个可行的修正方案：

方案一：遍历数据区域的单元格，仅处理有验证的单元格 #

这个方法更稳妥，会逐个检查表格数据区域的单元格，只对存在数据验证的单元格关闭输入消息：

Sub DisableValidationInputMessages()
    Dim tbl As ListObject
    Dim cell As Range
    
    ' 引用目标表格（确保工作表和表格名称正确）
    Set tbl = ActiveWorkbook.Sheets("DataEntry").ListObjects("Data")
    
    ' 遍历表格的数据区域（跳过表头）
    For Each cell In tbl.DataBodyRange
        ' 检查单元格是否有数据验证规则
        On Error Resume Next
        cell.Validation.ShowInput = False
        On Error GoTo 0
    Next cell
    
    MsgBox "已关闭所有数据验证输入消息", vbInformation
End Sub

方案二：直接针对数据区域批量设置（适用于所有数据单元格都有验证的情况） #

如果你的表格数据区域（DataBodyRange）的每个单元格都配置了数据验证，可以简化代码：

Sub DisableValidationInputMessages_Simple()
    Dim tbl As ListObject
    
    Set tbl = ActiveWorkbook.Sheets("DataEntry").ListObjects("Data")
    
    ' 确保数据区域存在（表格不为空）
    If Not tbl.DataBodyRange Is Nothing Then
        With tbl.DataBodyRange.Validation
            .ShowInput = False
        End With
        MsgBox "已关闭数据验证输入消息", vbInformation
    Else
        MsgBox "表格中没有数据行", vbExclamation
    End If
End Sub

注意事项 #

• 确认工作表名称DataEntry和表格名称Data完全匹配（Excel对名称大小写不敏感，但拼写错误会导致找不到对象）；
• 如果表格是空的（没有数据行），DataBodyRange会是Nothing，这时候方案二会提示你表格无数据，避免报错；
• 方案一用了On Error Resume Next来跳过没有验证的单元格，不会中断代码执行。

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