[已解决]除了目录和活动工作表以外其它的工作表都要自动隐藏，请问这要如何实现

linyaya · 发表于 2010-3-13 14:58

当SHEET2为活动工作表是除目录外其它作表都要隐藏，其它工作表是活动工作表时也一样是这相效果，如果目录是活动工作表其它所有的工作表都要隐藏请问下这要如何实现啊

Ese3EDnA.rar (2.11 KB, 下载次数: 19)

QQ9947 · 发表于 2010-3-14 13:58

不会！期待答案！！！！

坏多多 · 发表于 2010-3-14 15:31

Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "目录" Then
        Sheets(i).Visible = True
    End If
Next
End Sub

放在thisworkbook里

liuxingyi88 · 发表于 2010-3-14 20:15

用条件格式能否办到，是否太低级了，

linyaya · 发表于 2010-3-14 22:53

QUOTE:

以下是引用坏多多在2010-3-14 15:31:00的发言：

Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "目录" Then
        Sheets(i).Visible = True
    End If
Next
End Sub

放在thisworkbook里

不行啊，再帮我看看好吗

fjmxwrs · 发表于 2010-3-15 23:52

我也来学习一下

枯禅 · 发表于 2010-3-15 23:53

wwU55o4D.rar (8.68 KB, 下载次数: 128)

rhr2008 · 发表于 2010-3-16 07:43

来学习！谢谢！

kingying · 发表于 2010-4-28 16:09

结果是那样的,但不知道是怎么做出来的.
还有就是可以做一个返回的按钮就更方便了.
DX,搞个更全面的吧.

丑龙 · 发表于 2010-5-4 21:15

学习了

		自动登录	找回密码
密码			注册