跳到主要内容

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

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

doc锁定工作表位置1 doc箭头向右 doc锁定工作表位置2

用VBA锁定纸张位置


用VBA锁定纸张位置

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

跳到工作表

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

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

VBA:跳转到母版表

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

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

3.然后保存此代码,然后返回工作簿,单击 开发商 > .
doc锁定工作表位置3

4.在 对话框中,选择您刚才插入的代码名称,然后单击 附加选项,创建运行此代码的快捷方式。
doc锁定工作表位置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

doc锁定工作表位置5

3.保存代码并关闭VBA窗口。 从现在开始,无论您单击哪个表,母版表始终位于选项卡栏的前面。

doc锁定工作表位置6 doc箭头向右 doc锁定工作表位置7

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

最佳办公生产力工具

热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

kte选项卡201905


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations