如何使用VBA隐藏表单？
Microsoft Excel 2010具有Sheet1，Sheet2，Sheet3。
在工作表1上，页面被locking。 它包含引用Sheet3的字段。
例如，A2上的Sheet1标题为“Name”，而B2具有= Sheet3！B2。
在Sheet3上，A2的名字是“Name”，B2是空白的，除非用户填写。当然，Sheet3 Cell B2自动填充到Sheet1中。
在工作表3上，我有更多类似的字段可由用户编辑，如地址和电话号码。 但是，我想通过创build隐藏Sheet3的button来隐藏Sheet3。 我不希望通过电子邮件发送该文件的人员看到带有所有信息的Sheet3。 这会混淆自动化系统。
我已经研究了所有我能够find的代码，在信息input到某个字段后隐藏表单，但我不确定如何将该代码应用到button。 这个button的目的不是所有的用户都懂技术，所以这是一个快速的方法，让他们没有大惊小怪的隐藏表。 该button也将在Sheet3上。
我发现一个代码可以帮助，如果有人知道一些VBA将其转换为使用button。 这个代码说B6和B7，隐藏工作表。 我真的失去了如何使用这个几乎接近公式的button单击命令。
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 差不多，试试：
ActiveWorkbook.Worksheets(Cell.Value).Visible = xlSheetHidden
或者如果要隐藏工作表，并且不允许用户在隐藏工作表集合中看到它：
ActiveWorkbook.Worksheets(Cell.Value).Visible = xlSheetVeryHidden