如何使用VBA隐藏工作表？

Question

Microsoft Excel 2010具有Sheet1，Sheet2，Sheet3。

在工作表1上，页面被锁定。 它包含引用Sheet3的字段。

例如，在A2上的Sheet1标题为“名称”，而B2具有= Sheet3！B2。

在Sheet3上，除非用户填写，否则A2的标题为“名称”，而B2为空白。当然，Sheet3单元格B2自动填充到Sheet1中。

在工作表3上，我有更多类似的字段可供用户编辑，例如地址和电话号码。 但是，我想通过创建一个单击一次即可隐藏Sheet3的按钮来隐藏Sheet3。 我不希望通过电子邮件发送此文件的人看到此Sheet3及其所有信息。 它将混淆自动化系统。

我已经尽力研究了，发现了一些将信息输入到特定字段后隐藏工作表的代码，但是我不确定如何将该代码应用于按钮。 此按钮的用途不是我的所有用户都精通技术，因此这是一种允许他们隐藏表格而不必大惊小怪的快速方法。 该按钮也将出现在Sheet3上。

我发现了一个代码，如果有人知道一些VBA可以将其转换为按钮的使用，该代码将有所帮助。 此代码显示B6和B7，隐藏工作表。 我真的迷失了如何在这个几乎封闭的公式中使用按钮单击命令。

Sub ShowHideWorksheets()
Dim Cell As Range
For Each Cell In Range("B6:B7")
ActiveWorkbook.Worksheets(Cell.Value).Visible = Not
ActiveWorkbook.Worksheets(Cell.Value).Visible
Next Cell
End Sub

Answer 1

几乎可以尝试：

ActiveWorkbook.Worksheets(Cell.Value).Visible = xlSheetHidden

或者如果您想隐藏工作表，并且不允许用户在隐藏的工作表集合中看到它：

ActiveWorkbook.Worksheets(Cell.Value).Visible = xlSheetVeryHidden