关于隐藏工作表时，再点显示工作表的自定义命令栏出现矛盾

yj8363712

大家好！我隐藏了工作表后，再点自定义工具栏中的“显示工作表”命令栏，
就后出现运行时错误1004 ，大家有没有什么好方法让我在隐藏工作表的同时，
点击自定义的显示工作表的命令栏，让工作表能够显示出来呢？多谢大家了！

yj8363712

大家没人知道吗？

yxy博

没有什么问题呀.

冰山上的来客

Sub 进入显示次界面()
Sheets("次界面").Visible = -1
    Sheets("次界面").Select
End Sub

yj8363712

原帖由 冰山上的来客 于 2009-1-12 13:36 发表
Sub 进入显示次界面()
Sheets("次界面").Visible = -1
    Sheets("次界面").Select
End Sub

感谢冰山上的来客，可这样设置代码后，在隐藏所有工作表的情况下，
我先点击自定义工具栏下的次界面1，再点击次界面2等命令栏，
这样在出来次界面2工作表的时候，次界面1仍在显示状态，
怎样设置才能让它只显示当然显示的工作表呢。
比方说我点次界面1后再点次界面2，这时在下面名称栏只出现
主界面和次界面2，次界面1再次隐藏。

（因为我这里有几十张表，这种效果可以让界面美观一点。）

多谢了！

冰山上的来客

暂时这样：
Dim Sh As Worksheet
Sub 进入显示主界面()
Set Sh = Sheets("主界面")
    Sheets("主界面").Select
   
End Sub


Sub 进入显示次界面()
    Sheets("次界面").Visible = -1
    Sheets("次界面").Select
    Set Sh = Sheets("次界面")
my_Show_Hidden_Sheet
End Sub


Sub 进入显示次界面1()
    Sheets("次界面1").Visible = -1
    Sheets("次界面1").Select
    Set Sh = Sheets("次界面1")
    my_Show_Hidden_Sheet
End Sub

Sub 进入显示次界面2()
    Sheets("次界面2").Visible = -1
    Sheets("次界面2").Select
    Set Sh = Sheets("次界面2")
    my_Show_Hidden_Sheet
End Sub

Sub 进入显示次界面3()
    Sheets("次界面3").Visible = -1
    Sheets("次界面3").Select
    Set Sh = Sheets("次界面3")
    my_Show_Hidden_Sheet
End Sub

Sub 进入显示次界面4()
    Sheets("次界面4").Visible = -1
    Sheets("次界面4").Select
    Set Sh = Sheets("次界面4")
    my_Show_Hidden_Sheet
End Sub

Sub 进入显示次界面5()
    Sheets("次界面5").Visible = -1
    Sheets("次界面5").Select
    Set Sh = Sheets("次界面5")
    my_Show_Hidden_Sheet
End Sub

Sub my_Show_Hidden_Sheet()
Dim tSh As Worksheet
   For Each tSh In Sheets
   If Sh.Name <> tSh.Name And tSh.Name <> "主界面" Then tSh.Visible = xlSheetVeryHidden
   Next
End Sub

lanyuu

Sub GongZuoBQH(Sh As String)
'隐藏工作表
Sheets(Sh).Visible = True
For Each Sht In Sheets
    If Sht.Name <> Sheets(Sh).Name Then
        Sht.Visible = False
    End If
Next
End Sub

yj8363712

原帖由 冰山上的来客 于 2009-1-12 15:21 发表
暂时这样：
Dim Sh As Worksheet
Sub 进入显示主界面()
Set Sh = Sheets("主界面")
    Sheets("主界面").Select
   
End Sub


Sub 进入显示次界面()
    Sheets("次界面").Visible = -1
    Sheets("次 ...

嗯 谢谢！不过有几十张工作表的话，代码就有点长了，呵呵

yj8363712

原帖由 lanyuu 于 2009-1-12 15:39 发表
Sub GongZuoBQH(Sh As String)
'隐藏工作表
Sheets(Sh).Visible = True
For Each Sht In Sheets
    If Sht.Name  Sheets(Sh).Name Then
        Sht.Visible = False
    End If
Next
End Sub

谢谢！。。。