隐藏工作表并返回上一个工作表按钮

Question

我想向工作簿上的每个工作表添加一个按钮，该按钮隐藏活动工作表并返回到上一个工作表。我已经尝试过以下代码，但它只能返回到上一张纸。我对VBA不熟悉。

我应该如何修改代码，以便它可以在返回之前隐藏活动工作表？

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Set LstSht = Sh
End Sub


Public LstSht As Worksheet
Sub GoToLast()
    LstSht.Activate
End Sub

Answer 1

.Visible

的

WorkSheet

属性控制它是否隐藏。以下是有关如何使用它的 Microsoft 文档：https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.visible

Answer 2

对于那些关注这个问题的人；我通过对代码进行一些修改来解决我的问题，如下所示：

• 首先，转到上一张纸
• 然后，隐藏上一个工作表（第二步是之前隐藏活动工作表，现在是上一个工作表）

你可以试试这个：

在本工作簿中：

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
        Set LstSht = Sh
    End Sub

模块中：

Public LstSht As Worksheet
Private Sub GoToLast()
        LstSht.Activate
End Sub

Private Sub HidePrvSht()
ActiveWorkbook.Worksheets(LstSht.Name).Visible = False
End Sub

Sub HideNGo()
Call GoToLast
Call HidePrvSht
End Sub

特别感谢TehDrunkSailor:)