求助：VBA验证代码在Excel 2016失效，仅Mac 2011可正常运行

我之前也碰到过类似的跨版本VBA验证失效问题，这种无报错的静默失效，大多是Excel版本迭代后对VBA对象模型、安全策略的兼容性调整导致的，给你几个针对性的排查和解决方向：

1. 修复数据验证对象的调用逻辑 #

Excel 2016对DataValidation对象的参数要求和常量定义做了细微调整，旧版本的写法可能在新版中被隐性拒绝：

• 替换旧版枚举常量为显式数值：比如把xlValidateWholeNumber换成对应数值1，避免版本间常量映射差异；
• 明确传递所有必填参数：新版Excel不再兼容部分参数的默认值，需完整指定Type、AlertStyle、Operator、Formula1等核心参数。

示例调整后的代码片段：

With Range("A1").Validation
    .Delete ' 先清除旧验证规则，避免冲突
    .Add Type:=1, AlertStyle:=1, Operator:=0, Formula1:="1", Formula2:="100"
    .IgnoreBlank = True
    .InCellDropdown = True
    .ErrorTitle = "输入错误"
    .ErrorMessage = "请输入1-100之间的整数"
    .ShowInput = True
    .ShowError = True
End With

2. 调整宏安全信任设置 #

Excel 2016默认的宏安全级别更高，可能直接阻止了验证代码的执行：

• Windows版：文件选项 → 信任中心 → 信任中心设置 → 宏设置，选择「启用所有宏」（测试用，正式环境建议用签署宏），同时勾选「信任对VBA项目对象模型的访问」；
• Mac版：Excel菜单 → 偏好设置 → 安全性，将宏安全性设为「启用所有宏」，并允许对VBA项目的访问权限。

3. 排查工作表事件触发问题 #

如果你的验证是通过Worksheet_Change等事件触发的，新版Excel可能存在事件被意外禁用或逻辑冲突：

• 确保事件未被禁用：在代码开头加上If Not Application.EnableEvents Then Application.EnableEvents = True；
• 避免无限循环：在事件中修改单元格内容时，先临时禁用事件，完成后再恢复，示例：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ' 你的验证逻辑代码
    Application.EnableEvents = True
End Sub

4. 转换文件格式至新版标准 #

如果文件是从Excel 2011保存的.xls旧格式，在2016中以兼容模式打开会限制VBA功能：

• 将文件另存为.xlsm格式（启用宏的工作簿），确保宏功能在新版环境下正常加载。

5. 适配Mac版Excel的特殊限制 #

Mac版Excel 2016对VBA的支持和Windows版存在差异：

• 避免使用Windows专属API（如FindWindow这类系统级调用），替换为跨平台兼容的纯VBA方法；
• 检查是否依赖ActiveX控件：Mac版对ActiveX支持有限，尽量用表单控件或纯逻辑实现验证。

如果以上方法都没解决问题，可以把你的验证代码片段贴出来，能更精准定位版本兼容的细节问题。

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