VBA专题10-20：使用VBA操控Excel界面之隐藏和取消隐藏控件、组和选项卡
excelperfect
内置控件（不被允许）
不能够单独隐藏内置组中的内置控件。然而，可以隐藏内置组，因此会隐藏该组中的所有控件。可以单独禁用（和启用）组中的控件。
下表中的command元素的可用属性说明了为什么不能够隐藏但可以单独禁用（和启用）内置控件。另一方面，group和tab元素的可用属性说明了为什么可以隐藏（和取消隐藏）但不能够禁用组和选项卡。
上面的表也展示了通用理念，一些属性（enabled,label,visible …）可以在设计时设置它们的值，一些属性（getEnabled,getLabel, getVisible …，称作回调属性）可以在启动（当Excel开启时）动态设置值，可以在运行时改变它们的值（在使元素无效后通过使用VBA回调过程）。
内置控件组
通过使用visible属性，可以在设计时永久隐藏控件组。或者，可以通过使用getVisible回调属性动态地隐藏（和取消隐藏）它们。visible是设计时属性，而getVisible是运行时属性。
例如，下面的示例XML代码永久隐藏“开始”选项卡中的“字体”组和“对齐方式”组：
隐藏“字体”组和“对齐方式”组后的“开始”选项卡如下图所示：
虽然隐藏了组中的控件，但是仍然可以通过快捷键组合和上下文菜单执行它们底层的命令，例如，选择工作表单元格，按下Ctrl+B将使单元格内容加粗，右击单元格将显示“单元格”上下文菜单和Mini工具栏。
正如本文开头提到的，也可以在满足某条件时在运行时动态地隐藏（和取消隐藏）内置组。这样的例子包括：选择了图表工作表、选择了特定的工作表、从组合框中选择了特定项、以及勾选了网格线复选框。
例如，下面的示例XML代码和在标准VBA模块中的代码在运行时满足某条件时隐藏（和取消隐藏）“对齐方式”组：
customUI元素包括带有Initialize回调过程的onLoad属性。当打开工作簿时执行该回调。
GroupAlignmentExcel组元素包括getVisible属性。通过该属性指向HideAlignmentGroup过程，在打开工作簿或使该控件无效时执行。在该过程中评估是否隐藏或取消隐藏组的条件。
在Custom UI Editor中保存该文件，首次在Excel中打开时，会出现关于Initialize和HideAlignmentGroup过程的错误消息提示，因为这两个过程仍然没有在标准的VBA模块中找到，单击“确定”关闭错误消息。
打开VBE，在标准VBA模块中的代码如下：
Public myRibbon As IRibbonUI 'Callback for customUI.onLoadSub Initialize(ribbon As IRibbonUI) Set myRibbon = ribbonEnd Sub 'Callback for GroupAlignmentExcel getVisibleSub HideAlignmentGroup(control As IRibbonControl, ByRef returnedVal) returnedVal = TypeName(ActiveSheet) ='Worksheet'End Sub在HideAlignmentGroup过程中，如果活动工作表是标准工作表，那么returnedVal参数设置为True，结果是“文本对齐”组可见。如果returnedVal参数设置为False，那么该组被隐藏。
在ThisWorkbook模块的SheetActivate事件处理中的代码：
Private Sub Workbook_SheetActivate(ByVal Sh As Object) '在Excel 2010及以后版本,使用下面的代码语句: myRibbon.InvalidateControlMso 'GroupAlignmentExcel' '由于Excel 2007没有InvalidateControlMso方法 '使用下面的语句使功能区无效 'myRibbon.InvalidateEnd Sub
当激活不同的工作表时，执行SheetActivate事件处理。在Excel 2010及之后的版本中，InvalidateControlMso方法仅使“对齐方式”组无效。在Excel 2007中，Invalidate方法使功能区无效。随后，调用HideAlignmentGroup过程。如果活动工作表不是标准工作表，就隐藏该组，否则该组可见。
注意，当打开工作簿时，创建ribbon对象。编辑VBA代码可能销毁这个新创建的对象。试图使与销毁对象相关的控件无效是不可能的，唯一的办法是重新创建ribbon对象重新打开该工作簿。
当激活图表工作表时，“开始”选项卡中的“对齐方式”组被隐藏，如下图所示：
事实上，可以只是使用一个回调过程来隐藏多个组。这种只使用一个回调的思想可以被扩展到选项卡和控件，稍后我们会谈到这方面的内容。
内置选项卡
例如，下面的示例XML代码隐藏“开始”和“数据”选项卡：
隐藏“开始”和“数据”选项卡的功能区如下图所示：
虽然选项卡中的控件被隐藏，但仍然可以通过快捷键组合和上下文菜单执行它们底层的命令。例如，选择非空工作表单元格，按Alt+D+S将显示“排序”对话框，按Ctrl+H显示“查找和替换”对话框，右击单元格将显示单元格上下文菜单和Mini工具栏。
与隐藏（和取消隐藏）内置组相似，可以在运行时当满足某条件时动态地隐藏（和取消隐藏）内置选项卡。例如，运行时当满足某条件时，下面的示例XML代码和VBA代码可以隐藏（和取消隐藏）“开始”选项卡：
在标准VBA模块中的代码：
Public myRibbon As IRibbonUI 'Callback for customUI.onLoadSub onLoad(ribbon As IRibbonUI) Set myRibbon = ribbonEnd Sub 'Callback for TabHomegetVisibleSub HideHomeTab(control As IRibbonControl, ByRef returnedVal) returnedVal = TypeName(ActiveSheet) ='Worksheet'End Sub当调用HideHomeTab过程时，如果活动工作表不是标准工作表，那么隐藏“开始”选项卡，否则使“开始”选项卡可见。
在ThisWorkbook模块中的SheetActivate事件处理代码：
Private Sub Workbook_SheetActivate(ByVal Sh As Object) '在Excel 2010 及其后的版本中,使用下面的代码语句: myRibbon.InvalidateControlMso 'TabHome' '由于Excel 2007没有InvalidateControlMso方法, '使用下面的语句使Ribbon无效: 'myRibbon.InvalidateEnd Sub
当激活不同的工作表时，执行SheetActivate事件处理。在Excel 2010及之后的版本中，InvalidateControlMso方法仅使“开始”选项卡无效——仅仅是该选项卡被无效，在“开始”选项卡中的控件实际上没有被无效。在Excel 2007中，Invalidate方法使功能区中所有的控件无效。随后，调用HideHomeTab过程。如果活动工作表不是标准工作表，就隐藏“开始”选项卡，否则该选项卡可见。
所有内置选项卡
示例XML代码：
功能区的所有选项卡都被隐藏，如下图所示：
虽然所有的内置选项卡都被隐藏，但仍然可以通过快捷键组合、上下文菜单和上下文选项卡访问内置控件。例如，按Alt+I+S将显示“符号”对话框，按Alt+F1将插入一个空的嵌入式图表并显示“图表工具”上下文选项卡，右击工作表单元格将显示单元格上下文菜单和Mini工具栏。
自定义控件
不能够单独隐藏内置控件，但可以单独隐藏自定义控件。可以在设计时永久地或者在运行时动态地隐藏（和取消隐藏）自定义控件。然而，动态地隐藏（和取消隐藏）控件更可取，可以设置自已的条件来是否使控件隐藏。
例如，下面的示例XML代码在“开始”选项卡中的“字体”组前添加3个按钮：
注意，两个按钮的getVisible属性都使用了相同的getVisibleBtnBC回调过程。当打开工作簿或者当其中一个或两个控件被无效时执行该回调。
在标准VBA模块中的VBA代码：
Public myRibbon As IRibbonUI 'Callback for customUI.onLoadSub Initialize(ribbon As IRibbonUI) Set myRibbon = ribbonEnd Sub 'Callback for BtnB getVisibleSub getVisibleBtnBC(control As IRibbonControl,ByRef returnedVal) returnedVal = ActiveSheet.Name ='Sheet1'End Sub当调用getVisibleBtnBC过程时，如果活动工作表的名称是Sheet1，那么使BtnB和BtnC按钮可见，否则这两个按钮隐藏。
在ThisWorkbook模块中的SheetActivate事件处理代码：
Private Sub Workbook_SheetActivate(ByVal Sh As Object) myRibbon.InvalidateControl 'BtnB' myRibbon.InvalidateControl 'BtnC'End Sub
当激活不同的工作表时，执行SheetActivate事件处理，使BtnB和BtnC按钮无效。随后，调用相同的getVisibleBtnBC过程，遍历所有无效的控件（本例中，是两个按钮），它们的getVisible属性使用相同的getVisibleBtnBC过程。如果活动单元格的名称是Sheet1，那么这两个按钮可见，否则被隐藏。
自定义组和选项卡
隐藏（和取消隐藏）自定义组和选项卡的方法与隐藏（和取消隐藏）内置组和选项卡的方法相同。下面展示了一个示例，当活动工作表不是标准工作表时隐藏自定义选项卡。
示例XML代码：
在标准VBA模块中的VBA代码：
Public myRibbon As IRibbonUI 'Callback for customUI.onLoadSub Initialize(ribbon AsIRibbonUI) Set myRibbon = ribbonEnd Sub 'Callback for customTabgetVisibleSub HideCustomTab(control As IRibbonControl, ByRef returnedVal) returnedVal = TypeName(ActiveSheet) ='Worksheet'End Sub在ThisWorkbook模块中的SheetActivate事件处理代码：
Private Sub Workbook_SheetActivate(ByVal Sh As Object) myRibbon.InvalidateControl 'CustomTab'End Sub
说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。注：如果你有兴趣，你可以到知识星球App的完美Excel社群下载这本书的完整中文版电子书。