Question

Microsoft Excel 2010具有Sheet1，Sheet2，Sheet3。

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

例如，A2上的Sheet1标题为“Name”，B2具有= Sheet3！B2。

在Sheet3上，A2标题为“名称”，B2为空，除非用户填写。当然，Sheet3 Cell 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

如何使用VBA隐藏工作表？

1 个答案: