核心问题原因 #

你的代码通过工作簿名称字符串（Workbooks(wb)）引用工作簿，当存在同名但已关闭的工作簿时，Excel会自动从最近文件中打开该同名工作簿。此外代码中存在未限定的工作表引用（如Worksheets.Count），可能引发潜在的上下文混淆。

修改后的代码 #

替换原有宏代码为以下版本：

NextSheet（Ctrl+Tab 切换到下一个工作表）

Sub NextSheet()
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    
    If wb.ActiveSheet.Index = wb.Worksheets.Count Then
        wb.Worksheets(1).Select
    Else
        wb.ActiveSheet.Next.Select
    End If
End Sub

PrevSheet（Ctrl+Shift+Tab 切换到上一个工作表）

Sub PrevSheet()
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    
    If wb.ActiveSheet.Index = 1 Then
        wb.Worksheets(wb.Worksheets.Count).Select
    Else
        wb.ActiveSheet.Previous.Select
    End If
End Sub

修改说明 #

• 直接使用ActiveWorkbook对象赋值给变量，避免通过名称字符串查找工作簿，彻底杜绝Excel自动打开已关闭同名工作簿的问题。
• 所有工作表操作均通过wb对象限定，确保操作的是当前激活的工作簿，避免上下文混淆。
• 移除了冗余的Workbooks(wb).Activate语句，因为当前工作簿已经处于激活状态，该操作无意义且可能引发潜在问题。

额外提示 #

如果你的宏是存储在当前工作簿模板中，且希望固定切换该模板工作簿的工作表（无论是否激活），可将Set wb = ActiveWorkbook替换为Set wb = ThisWorkbook，这样宏只会操作存储它的工作簿的工作表。

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