作者:有颜色的狼的天空 | 来源:互联网 | 2023-05-26 11:10
打算通过Excel实现如下功能:当打开“做成的xls文档”时,不显示任何WorkBook和WorkSheet,而是在现有已经打开的Excel中添加一个菜单。于是隐藏了这个xls的所有She
打算通过Excel实现如下功能:
当打开“做成的xls文档”时,不显示任何WorkBook和WorkSheet,而是在现有已经打开的Excel中添加一个菜单。
于是隐藏了这个xls的所有Sheet。
现在,需要利用这个xls其中一个sheet作为配置文件。因此,希望通过VBA将隐藏的Sheet恢复(同时能够再次隐藏)。
但是,通过
sheets(1).visible=true
的方式,不能恢复“全部Sheet都被隐藏的WorkBook”里面的Sheet。
哪位大虾能帮帮忙啊?
PS:我在baidu知道提了问题,知道的也可以去那边再答一次,给分。
http://zhidao.baidu.com/question/120692743.html
5 个解决方案
奇怪,我用
Windows("工作簿名.xls").Visible = True
会提示“下标越界”。
使用绝对地址也是提示“下标越界”。
在“ThisWorkBook”和“模块”里面都是一样的提示。
我用的没事呀.
Windows("工作簿名.xls")要改成你的隐藏的工作簿全名....
另外你的操作应该是: 打开那个会隐藏的工作簿,在编程界面运行显示程序,或者在其它工作簿用显示程序触发...
我在ThisWorkBook里面加的:
Private Sub Workbook_Open()
Windows("Tools.xls").Visible = True
End Sub
和
Private Sub Workbook_Open()
Windows("d:\Tools.xls").Visible = True
End Sub
都不行。
直接在VB编辑器里面选择这个函数,然后F5,也不行。
新建了一个Excel文档,Book1.xls,然后再里面新建一个模块,调用Windows("Tools.xls").Visible = True
还是不行……
崩溃了!
PS:我用的是OFFICE2003