Question

VBA如何取消Sheet隐藏（全部Sheet隐藏的状态）

打算通过Excel实现如下功能:
当打开“做成的xls文档”时，不显示任何WorkBook和WorkSheet，而是在现有已经打开的Excel中添加一个菜单。

于是隐藏了这个xls的所有Sheet。

现在，需要利用这个xls其中一个sheet作为配置文件。因此，希望通过VBA将隐藏的Sheet恢复（同时能够再次隐藏）。

但是，通过
sheets(1).visible=true
的方式，不能恢复“全部Sheet都被隐藏的WorkBook”里面的Sheet。

哪位大虾能帮帮忙啊？

Answer 1

'隐藏工作簿和工作表的方法有:
'==============================
For i = 1 To Sheets.Count - 1
'依次隐藏工作表，但由于一个工作簿内必须有一个可显示的工作表，所以必须减1

Sheets(i).Visible = False

Next i
'==============================
ActiveWindow.Visible = False '如果想将整个工作簿隐藏应该用此命令...

'你所提到的工作簿隐藏，可能用到第二种，如果想显示应用:

Windows("工作簿名.xls").Visible = True