【隐藏工作表问题】

Excel_teh

Sub 工作薄链接()
Dim po As CommandBar
For Each po In Application.CommandBars
If po.Name = "sh" Then po.Delete
Next
Set po = CommandBars.Add(Name:="sh", Position:=msoBarPopup)
For Each sh In Sheets

    Set po1 = po.Controls.Add(Type:=msoControlButton)
     po1.Caption = sh.Name
     po1.OnAction = "act"
Next
po.ShowPopup
End Sub

Sub act()
Dim shname
shname = CommandBars.ActionControl.Caption
Sheets(shname).Visible = True
For Each sh In Sheets
    If sh.Name <> shname Then sh.Visible = False
Next
End Sub


某个工作薄里面有20sheet，从sheet1 到sheet17里面每个sheet都有一个按钮指定上面的宏，
但是我sheet18到sheet20我不希望这三个sheet名字也现在在按钮上！有办法指定某几个不让他显示吗？
也就是说，一直隐藏着！

TLHMQH

在按钮上击右键，在弹出菜单上选“剪切”。

ygt0577

太难了！！～～～