Question

我有一个工作簿，其中一个工作表上有组织结构图。

已为每个工作角色加载了更多隐藏工作表的作业规范。

我希望能够点击组织结构图中的工作角色，并让它显示该角色的相关隐藏工作表。

还应该有一个主页图标，用户可以将用户带回组织结构图并再次隐藏它们来自的工作表。

我希望组织结构图中列出的所有工作角色都是这种情况，用户可以单击任何工作角色并打开相关的工作规范工作表。

Answer 1

这是一种方法（有很多方法可以做到这一点）：

在您的组织结构图上插入所需的按钮（开发人员＆gt;插入＆gt;表单控件＆gt;按钮）。您还需要在每个组织表上创建一个按钮，然后返回到您的组织表。

将以下代码粘贴到模块中

修改以适合您的工作簿
（将工作表名称更改为工作表）。 Sub Home()会将您带回主要的组织结构图。

Sub Agents()
ThisWorkbook.Sheets("Agents").Visible = True
ThisWorkbook.Sheets("Agents").Activate
End Sub

Sub TeamLeads()
ThisWorkbook.Sheets("Team Leads").Visible = True
ThisWorkbook.Sheets("Team Leads").Activate
End Sub

Sub Managers()
ThisWorkbook.Sheets("Managers").Visible = True
ThisWorkbook.Sheets("Managers").Activate
End Sub

Sub Home()
ThisWorkbook.ActiveSheet.Visible = False
ThisWorkbook.Sheets("Org").Activate
End Sub

将每个宏指定给相应的按钮
要执行此操作，请右键单击按钮＆gt;指定宏＆gt;选择适当的宏。在此示例中，应将所有“返回组织结构图”按钮分配给“主页”宏。

用户仍然可以使用上述方法手动取消隐藏Excel中的工作表。如果您不希望这是一个选项，您可以使用以下方法隐藏/取消隐藏工作表：

ThisWorkbook.Sheets（“YourNameHere”）。Visible = xlSheetVeryHidden
ThisWorkbook.Sheets（“YourNameHere”）。Visible = xlSheetVisible

在图标点击上显示隐藏的工作表

1 个答案: