Excel VBA问题：重启文件选择循环后代码无法遍历全部选中工作表

使用xlDialogActivate对话框切换工作簿时，Excel的默认行为会重置目标工作簿的选中工作表集合——无论用户之前选中了多少个工作表，对话框激活工作簿后只会保留当前激活的单个工作表为选中状态。这就是误选Utilities文件后，再次选择目标文件时多表选中状态丢失、代码仅对第一个工作表生效的核心原因。

核心思路是避免使用xlDialogActivate破坏已有的多表选中状态，改为让用户手动切换到目标工作簿后进行验证，具体修改如下：

优化后的代码 #

Sub Apply_Logo()
Dim Wkbk As Workbook
Dim Wksht As Worksheet
Dim Response As VbMsgBoxResult
Dim FirstTab As String
Dim SelectedSheets As Sheets

Response = MsgBox("请先在目标工作簿中选中需要处理的工作表，然后点击确定。点击取消终止操作。", vbOKCancel, "确认操作")
    If Response = vbCancel Then
        MsgBox "已取消操作。"
        Exit Sub
    End If

' 循环验证当前激活的工作簿是否为目标文件
Do
    Set Wkbk = ActiveWorkbook

    If InStr(1, Wkbk.Name, "Utilities for Pricing Model") <> 0 Then
        Response = MsgBox("请勿选择Utilities文件作为目标文件，请切换到目标工作簿后点击确定，或点击取消终止操作。", vbRetryCancel, "选择错误")
        If Response = vbCancel Then
            MsgBox "已取消操作。"
            Exit Sub
        End If
    Else
        Exit Do
    End If
Loop

' 提前保存选中的工作表集合，防止后续操作破坏选中状态
Set SelectedSheets = Wkbk.Windows(1).SelectedSheets

For Each Wksht In SelectedSheets
    If FirstTab = "" Then FirstTab = Wksht.Name
        With Wksht
            .PageSetup.LeftHeaderPicture.Filename = _
            "\\path.com\path\path\logo.jpg"
            .PageSetup.LeftHeader = "&G"
            ' 测试用标记：验证代码执行范围
            .Range("a1").Value = "logo"
            .Tab.Color = 15773696
        End With
Next Wksht

' 返回用户最初选中的第一个工作表
SelectedSheets(1).Select

Response = MsgBox("操作完成：已为选中工作表添加页眉Logo。", vbOKOnly, "操作成功")
End Sub

修改说明 #

1. 移除xlDialogActivate对话框：改为让用户手动切换到目标工作簿，彻底避免对话框重置多表选中状态的问题。
2. 循环验证工作簿：通过检查当前激活工作簿的名称，确保用户没有选中Utilities文件，误选时提示重试或取消。
3. 提前保存选中工作表集合：将用户选中的工作表集合提前赋值给变量，防止后续代码操作意外修改选中状态。

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