如何在Excel工作簿中鎖定工作表位置以使其始終可見？

如果工作簿中有多个工作表，当您导航到最后一个工作表时，第一个工作表会在工作表标签栏中被隐藏，如下所示。现在您想锁定主工作表的位置以保持其始终可见，该如何处理呢？

使用VBA鎖定工作表位置

使用VBA鎖定工作表位置

在此我向您介紹兩個用於處理此工作的VBA代碼。

使用快捷方式跳轉到特定工作表

1. 按下 Alt + F11 鍵啟動 Microsoft Visual Basic for Windows。

2. 點擊 插入 > 模組，然後複製並將以下代碼粘貼到腳本中。

VBA：跳轉到主工作表

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

備註：在代碼片段 Sheets("Master").Activate 中，您可以根據需要將 Master 更改為任何工作表名稱。

3. 然後保存此代碼，返回工作簿，點擊 開發工具 > 宏。

4. 在宏對話框中，選擇剛才插入的代碼名稱，點擊 選項，為運行此代碼創建一個快捷方式。

5. 點擊 確定 並關閉宏對話框。

從現在開始，當您按下創建的快捷鍵時，無論當前使用哪個工作表，主工作表都會被激活。

始終保持特定工作表在最前面

1. 按下 Alt + F11 鍵啟動 Microsoft Visual Basic for Windows。

2. 從 Project-VBAProject 窗格中雙擊 ThisWorkbook，然後複製並將以下代碼粘貼到腳本中。

VBA：保持工作表始終在最前面

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

3. 保存代碼並關閉VBA窗口。從現在開始，無論您選擇哪個工作表，主工作表將始終停留在標籤欄的最前面。

備註：在上述代碼中，“master” 是您希望保持可見的工作表名稱，請根據需要進行更改。