使用OnKey调用回历格式转换宏时弹出保存对话框的问题求助

我来帮你分析并解决这个问题——你遇到的保存对话框提前弹出的情况，主要有两个核心原因：快捷键冲突和SendKeys操作的不稳定性，下面是具体的解决方案和优化后的代码：

问题根源拆解 #

1. 快捷键冲突：你使用的%h（Alt+H）是Excel内置的「开始选项卡」激活快捷键，按下时Excel会优先响应内置命令，可能间接触发保存提示（尤其是当文件存在未保存修改时）。
2. SendKeys的隐患：SendKeys "{f2}" + "{enter}"是模拟键盘操作，稳定性极差，容易触发意外的系统/Excel内置行为，比如误触保存相关命令，或者让Excel误认为单元格内容被修改，从而弹出保存提示。

优化后的解决方案 #

1. 更换无冲突的快捷键组合 #

把原来的%h换成更小众的组合，比如^%h（Ctrl+Alt+H），彻底避免和Excel内置命令冲突：

Private Sub Workbook_Activate()
    ' 使用Ctrl+Alt+H作为专属快捷键
    Application.OnKey "^%h", "ToHijri"
End Sub

2. 替换SendKeys，用更可靠的方式刷新格式 #

直接通过Cel.Value = Cel.Value强制Excel重新应用单元格格式，效果和F2+Enter完全一致，但不会触发任何意外操作：

Sub ToHijri()
    Dim Cel As Range
    Dim Selectedr As Range
    
    Set Selectedr = Application.Selection
    ' 批量设置回历数字格式
    Selectedr.NumberFormat = "[$-1970000]B2dd/mm/yyyy;@"
    
    ' 强制单元格应用新格式，替代不稳定的SendKeys
    For Each Cel In Selectedr.Cells
        ' 只处理日期类型的单元格，避免非日期内容出错
        If IsDate(Cel.Value) Then
            Cel.Value = Cel.Value
        End If
    Next Cel
End Sub

3. 可选：临时关闭警报（如果仍有保存提示） #

如果文件本身有未保存修改，Excel弹出保存提示是正常行为，但你可以临时关闭警报来避免弹窗（注意：这会关闭所有Excel警报，谨慎使用）：

Sub ToHijri()
    Dim Cel As Range
    Dim Selectedr As Range
    
    ' 临时关闭Excel警报
    Application.DisplayAlerts = False
    
    Set Selectedr = Application.Selection
    Selectedr.NumberFormat = "[$-1970000]B2dd/mm/yyyy;@"
    
    For Each Cel In Selectedr.Cells
        If IsDate(Cel.Value) Then
            Cel.Value = Cel.Value
        End If
    Next Cel
    
    ' 恢复警报显示
    Application.DisplayAlerts = True
End Sub

额外提示 #

• 确保你的Excel文件已经保存过，新建未保存的文件在修改内容后触发保存提示是Excel的默认行为，如果你需要宏执行后自动保存，可以在宏末尾添加ThisWorkbook.Save。
• 日常使用宏时尽量避免SendKeys，它的执行依赖于当前Excel的界面状态，很容易出现各种不可控的问题。

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