如何锁定工作表位置以使其始终在Excel工作簿中可见？

如果工作簿中有多个工作表，则切换到最后一个工作表时，第一个工作表将隐藏在工作表选项卡栏中，如下所示。 现在，您希望将母版表的位置锁定为始终可见，那么如何处理呢？

用VBA锁定纸张位置

用VBA锁定纸张位置

在这里，我介绍了两个VBA代码供您处理这项工作。

跳到工作表

1。 按 Alt + F11键 启用 Windows的Microsoft Visual Basic.

2。 点击 插页 > 模块，然后将以下代码复制并粘贴到脚本中。

VBA：跳转到母版表

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

备注：在的代码片中 Sheets（“ Master”）。激活，你可以改变 总音量 您需要的任何工作表名称。

3.然后保存此代码，然后返回工作簿，单击 开发商 > 宏.

4.在 宏 对话框中，选择您刚才插入的代码名称，然后单击 附加选项，创建运行此代码的快捷方式。

5。 点击 OK 并关闭 宏 对话。

从现在开始，当您按下创建的快捷方式时，无论使用哪种工作表，母版表都已被激活。

始终将纸张放在最前面

1。 按 Alt + F11键 启用 Windows的Microsoft Visual Basic.

2.双击 的ThisWorkbook 来自 项目-VBA项目 窗格，然后将以下代码复制并粘贴到脚本中。

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窗口。 从现在开始，无论您单击哪个表，母版表始终位于选项卡栏的前面。

请注意： 在上面的代码中， “主” 是您要保持可见的工作表名称，请根据需要进行更改。