When you build a workbook for other people to use, there might be worksheets that can stay hidden some of the time. See how to hide a worksheet automatically, so you don't have to remember to do it manually.

当您构建一个供其他人使用的工作簿时，某些工作表可能有时会保持隐藏状态。 了解如何自动隐藏工作表，因此您不必记住手动进行工作。

订单工作簿 (Orders Workbook)

In this example, the workbook is used to create and print orders. If the shipment is going to Canada, an Export Form needs to be printed too. For shipments to the USA, the form isn’t needed.

在此示例中，工作簿用于创建和打印订单。 如果要运往加拿大，则也需要打印出口表格。 对于运往美国的表格，则不需要此表格。

用VBA隐藏工作表 (Hide the Sheet with VBA)

In 2011, I shared some code that automatically shows or hides a worksheet, based on what you selected from a drop down list. You can see the original article here: Hide Excel Sheet When Cell Changes

在2011年，我分享了一些代码，这些代码根据您从下拉列表中选择的内容自动显示或隐藏工作表。 您可以在此处看到原始文章： 单元格更改时隐藏Excel工作表

The code included the country name and sheet name, and showed the ExportForm sheet when Canada was selected.

该代码包括国家名称和工作表名称，并在选择加拿大时显示ExportForm工作表。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Me.Range("CountrySel").Address Then
If Target.Value = "Canada" Then
Sheets("ExportForm").Visible = True
Else
Sheets("ExportForm").Visible = False
End If
End If
End Sub

缩短密码 (Shorten the Code)

Rick Rothstein suggested shortening the code, to get rid of the second If…End If section.

Rick Rothstein建议缩短代码，以摆脱第二个If ... End If部分。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Me.Range("CountrySel").Address Then
Sheets("ExportForm").Visible _
= Target.Value = "Canada"
End If
End Sub

使用命名范围 (Use Named Ranges)

Last week, BizJack added a comment, asking if variables could be used, instead of hard coding the country and sheet names. He wanted to refer to the values in named ranges on a worksheet.

上周，BizJack添加了一条评论，询问是否可以使用变量，而不是对国家和工作表名称进行硬编码。 他想引用工作表中命名范围内的值。

That’s a great idea, so I’ve created an updated example, using Rick’s suggestion for shortening the code, and adding variables.

那是个好主意，因此我创建了一个更新的示例，使用Rick的建议来缩短代码并添加变量。

The Country and Sheet Name are in named ranges on the Lists sheet, along with a list of the two countries.

“国家/地区和工作表名称”以及“两个国家/地区的列表”在“列表”工作表的命名范围内。

• Cell C3 is named rngCountry单元格C3命名为rngCountry
• Cell C5 is named rngSheet单元格C5名为rngSheet
• Range E3:E4 is named Countries范围E3：E4被命名为国家

使用变量更新代码 (Update the Code With Variables)

Here is the revised code, using variables for the country and sheet name. If you start shipping to Japan, instead of Canada, just change the country name on the Lists sheet.

这是修改后的代码，使用了国家和工作表名称的变量。 如果您开始运送到日本而不是加拿大，只需在“清单”表上更改国家/地区名称即可。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As Workbook
Dim Country As String
Dim ShtName As String
Set wb = ThisWorkbook
Country = wb.Names("rngCountry").RefersToRange.Value
ShtName = wb.Names("rngSheet").RefersToRange.Value
If Target.Address = Me.Range("CountrySel").Address Then
Sheets(ShtName).Visible = Target.Value = Country
End If
End Sub

测试修订后的代码 (Test the Revised Code)

To test the code, select a country from the drop down list on the OrderForm sheet. The code still works the same as it did previously:

要测试代码，请从OrderForm工作表的下拉列表中选择一个国家。 该代码的工作原理与以前相同：

• select USA, and the ExportForm sheet is hidden选择美国，并且ExportForm工作表被隐藏
• select Canada, and the ExportForm sheet is visible选择加拿大，并且ExportForm工作表可见

The only difference is that it’s easier to change either of those values – just go to the Lists sheet, instead of revising the VBA code.

唯一的区别是，更改任何一个值都更容易-只需转到“列表”表即可，而不是修改VBA代码。

下载样本文件 (Download the Sample File)

To see how the code works, you can download the sample file. Go to the Excel Files page on my Contextures website. In the UserForms and VBA section, look for UF0027 – Hide Sheet When Cell Changes __________________

要查看代码的工作原理，可以下载示例文件。 转到我的Contextures网站上的“ Excel文件”页面 。 在“用户窗体和VBA”部分中，查找UF0027 –单元格更改时隐藏表格 __________________