执行关闭活动工作簿的宏时隐藏个人宏工作簿自动打开的问题求助

我完全理解你现在的困扰——明明个人宏工作簿（Personal.xlsb）本来是隐藏状态，结果运行完宏关闭活动工作簿后，它却自动弹出来了。这种情况其实挺常见的，我来帮你拆解原因和可行的解决办法：

问题根源分析 #

你的怀疑方向是对的，问题确实和那段关闭工作簿的代码有关，核心逻辑是这样的：

• 你的宏应该是存储在Personal.xlsb里的（毕竟是个人宏工作簿），当宏运行时，Personal.xlsb其实一直在后台处于打开状态（只是默认隐藏）。
• 当你执行ActiveWorkbook.Close SaveChanges:=False关闭当前活动工作簿后，如果这是Excel中唯一的可见工作簿，Excel进程不会自动退出，反而会把原本隐藏的Personal.xlsb显示出来——因为它是当前系统里唯一打开的工作簿了。

解决办法（附代码修改示例） #

针对这个问题，有几种不同的修改方案，你可以根据自己的使用习惯选择：

方案1：关闭工作簿后直接退出Excel #

如果你的需求是完成所有操作后直接关闭整个Excel程序，那可以在关闭工作簿的代码后加上退出命令：

If closeOption = vbYes Then
    ActiveWorkbook.Close SaveChanges:=False
    ' 直接退出Excel，避免Personal.xlsb被显示
    Application.Quit
End If

⚠️ 注意：这样会关闭整个Excel进程，如果你还有其他未保存的打开工作簿，也会被一并关闭，建议在提示用户关闭时补充相关说明。

方案2：关闭工作簿后保持Personal.xlsb隐藏 #

如果你不想退出Excel，只是希望Personal.xlsb继续保持隐藏状态，可以在关闭活动工作簿后，重新设置它的可见属性：

If closeOption = vbYes Then
    ' 先记录要关闭的目标工作簿
    Dim targetWB As Workbook
    Set targetWB = ActiveWorkbook
    
    ' 关闭目标工作簿
    targetWB.Close SaveChanges:=False
    
    ' 重新隐藏Personal.xlsb（ThisWorkbook指存储当前宏的工作簿）
    On Error Resume Next ' 防止Personal.xlsb不存在的异常情况
    ThisWorkbook.Windows(1).Visible = False
    On Error GoTo 0
End If

方案3：检查是否有其他可见工作簿再处理 #

如果想要更严谨，可以先判断关闭当前工作簿后是否还有其他可见工作簿，只有在没有其他可见工作簿时才处理Personal.xlsb：

If closeOption = vbYes Then
    Dim targetWB As Workbook
    Set targetWB = ActiveWorkbook
    Dim hasVisibleWB As Boolean
    
    ' 遍历所有工作簿，检查是否有其他可见的工作簿
    For Each wb In Application.Workbooks
        If wb.Name <> targetWB.Name And wb.Windows(1).Visible = True Then
            hasVisibleWB = True
            Exit For
        End If
    Next wb
    
    ' 关闭目标工作簿
    targetWB.Close SaveChanges:=False
    
    ' 如果没有其他可见工作簿，隐藏Personal.xlsb
    If Not hasVisibleWB Then
        On Error Resume Next
        ThisWorkbook.Windows(1).Visible = False
        On Error GoTo 0
    End If
End If

额外小建议 #

看了你的完整代码，发现有几处重复设置PrintArea和PrintTitleRows的冗余代码（比如连续几次设置ActiveSheet.PageSetup.PrintArea = ""），可以适当合并优化，能让宏运行更高效一些。

备注：内容来源于stack exchange，提问作者churchizactiive