[已解决]求一句代码

学习学习再学习

放在
Private Sub Workbook_Open()


End Sub

之间的（深度）隐藏工作表的代码是哪一句，用了几个都运行出错。

求指导！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-5 00:46

.visible=2

跳转到最佳答案楼层

hwc2ycy

.visible=2

hwc2ycy

hwc2ycy

另外要保证至少有一个工作表是可见的。

学习学习再学习

hwc2ycy 发表于 2013-4-5 00:46
.visible=-2

试过这种了啊，没用得起来，比如我想把Sheet25（代码的）隐藏起来，怎么写完整的句子，我写了几个都没成功，要求是打开工件薄的时候隐藏它，

hwc2ycy

通过ISADDIN也是个方法。

hwc2ycy

Workbook.IsAddin 属性
如果指定工作簿作为加载宏运行，则该属性值为 True。Boolean 类型，可读写。
语法

表达式.IsAddin

表达式   一个代表 Workbook 对象的变量。

说明


如果将该属性设置为 True，则指定工作簿将具有下列特征：

如果打开该工作簿时发生了更改，将不提示保存该工作簿。
工作簿窗口不可见。
该工作簿中的任何宏都不在“宏”对话框中显示（指向“工具”菜单中的“宏”项，并单击“宏”命令可显示该对话框）。
尽管该工作簿中的宏在“宏”对话框中不可见，仍然可以通过“宏”对话框运行该工作簿中的宏。另外，宏名无须使用工作簿名称进行标识。
在打开工作簿时按住 Shift 键不起作用。

hwc2ycy

sheet25.visible=2

hwc2ycy

Worksheet.Visible 属性
返回或设置一个 XlSheetVisibility 值，它确定对象是否可见。
语法

表达式.Visible

表达式   一个代表 Worksheet 对象的变量。

学习学习再学习

Private Sub Workbook_Open()
Sheet25.visible=2

End Sub

是这样的么？以经试过一次，我再试一次看行不行。