VBA返回按钮异常：点击后显示首个工作表导航按钮问题求助

首先，你的问题根源出在goback宏的核心逻辑错误，导致返回的工作表被意外隐藏，迫使Excel自动切换到第一个可见工作表（也就是你提到的带导航按钮的首个工作表）。我们一步步来解决：

1. 修正致命逻辑错误 #

先看你当前的goback代码：

Sub goback()
    Sheets(LastSheet).Visible = True
    Sheets(LastSheet).Activate
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            If .Name <> "BM" Then .Range("H9:R31").Font.Color = RGB(255, 255, 255)
        End With
    Next ws
    Sheets(LastSheet).Visible = False ' 这里是核心错误！
End Sub

最后一行Sheets(LastSheet).Visible = False把你刚刚激活的目标工作表直接隐藏了，Excel只能自动跳转到第一个可见的工作表，这就是为什么你始终看到首个工作表按钮的原因。你应该隐藏的是当前点击返回按钮所在的工作表，而不是要返回的工作表。

修正后的goback宏：

Sub goback()
    Dim currentSheet As Worksheet
    Set currentSheet = ActiveSheet ' 先记录当前要隐藏的工作表
    
    ' 激活并显示之前的工作表
    Sheets(LastSheet).Visible = True
    Sheets(LastSheet).Activate
    
    ' 执行你的字体颜色设置逻辑
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            If .Name <> "BM" Then .Range("H9:R31").Font.Color = RGB(255, 255, 255)
        End With
    Next ws
    
    ' 隐藏当前的工作表（而不是返回的工作表）
    currentSheet.Visible = xlSheetHidden
End Sub

2. 优化全局变量的可靠性 #

使用Global变量存储LastSheet在某些场景下（比如宏中断、工作簿临时重启）可能会丢失值，建议改用工作簿自定义属性存储，稳定性更高：

替换工作簿模块代码： #

Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
    ' 将上一个工作表名称存入自定义属性
    On Error Resume Next
    Me.CustomProperties("LastSheet").Value = sh.Name
    If Err.Number <> 0 Then
        Me.CustomProperties.Add Name:="LastSheet", Value:=sh.Name
    End If
    On Error GoTo 0
End Sub

替换标准模块代码： #

Sub goback()
    Dim lastSheetName As String
    Dim currentSheet As Worksheet
    
    ' 读取自定义属性中的上一个工作表名称
    On Error Resume Next
    lastSheetName = ThisWorkbook.CustomProperties("LastSheet").Value
    On Error GoTo 0
    
    ' 校验是否存在该工作表
    If lastSheetName = "" Or Not SheetExists(lastSheetName) Then
        MsgBox "没有可返回的工作表！", vbExclamation
        Exit Sub
    End If
    
    Set currentSheet = ActiveSheet
    
    ' 激活并显示目标工作表
    Sheets(lastSheetName).Visible = True
    Sheets(lastSheetName).Activate
    
    ' 执行字体颜色逻辑
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            If .Name <> "BM" Then .Range("H9:R31").Font.Color = RGB(255, 255, 255)
        End With
    Next ws
    
    ' 隐藏当前工作表
    currentSheet.Visible = xlSheetHidden
End Sub

' 辅助函数：检查工作表是否存在
Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    SheetExists = Not ws Is Nothing
End Function

3. 强制界面刷新的补充方案 #

如果修正逻辑后仍有界面显示延迟，可以在激活目标工作表后添加以下代码强制刷新：

' 触发Excel界面刷新
ActiveWindow.SmallScroll Down:=0 ' 微小滚动操作触发界面重绘
DoEvents ' 让Excel处理所有待执行的事件

为什么之前的EnableCalculation没用？ #

你的问题本质是工作表显示逻辑错误，而非计算刷新问题，所以调整计算相关设置自然无法解决问题。

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