当您选择隐藏工作簿中的工作表时，Excel允许您通过一项操作来隐藏多张工作表：您要做的就是在实际进行隐藏之前选择工作表。但是，取消隐藏工作表是另一回事。 Excel仅允许您一次取消隐藏。

如果您要取消隐藏许多工作表，这可能非常繁琐。

解决此问题的唯一方法是使用宏取消隐藏工作表。下面的VBA宏将取消隐藏当前工作簿中的所有工作表：

Sub UnhideAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In ActiveWorkbook.Worksheets         wsSheet.Visible = xlSheetVisible     Next wsSheet End Sub

如果您不想一次取消隐藏所有工作表，则可以使宏询问每个隐藏的工作表，然后取消隐藏您同意取消隐藏的每个工作表。以下宏将处理此任务：

Sub UnhideSomeSheets()

Dim sSheetName As String     Dim sMessage As String     Dim Msgres As VbMsgBoxResult

For Each wsSheet In ActiveWorkbook.Worksheets         If wsSheet.Visible = xlSheetHidden Then             sSheetName = wsSheet.Name             sMessage = "Unhide the following sheet?" _               & vbNewLine & sSheetName             Msgres = MsgBox(sMessage, vbYesNo)

If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible         End If     Next wsSheet End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2603）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

取消隐藏多个工作表。