请教高手，对非活动工作表进行深度隐藏

wxh100wxh

假定工作薄内有四个工作表，名字分别为：sheet1    sheet2    sheet3     sheet4，要求实现功能：
当我使用Application.Goto Reference:="Sheet2!R1C1"语句时，则 sheet1  sheet3  sheet4工作表被深度隐藏（即不能使用  格式--工作表--取消隐藏  来显示出工作表）。
当我使用Application.Goto Reference:="Sheet3!R1C1"语句时，则 sheet1  sheet2 sheet4工作表被深度隐藏
不知道可以实现这个功能么？

fatefree

思路这样子
假设有10个sheet
先判断你进入的是哪个sheet，例如是sheet3
然后用for循环1到2，循环4到10，分别设置veryhidden就可以（两个循环）

wxh100wxh

fatefree 发表于 2011-10-31 16:35
思路这样子
假设有10个sheet
先判断你进入的是哪个sheet，例如是sheet3

谢谢2楼,您高估了我的VBA水平,其实我的VBA知识无限接近于0

AVEL

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2. Dim sht As Worksheet
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> Sh.Name Then sht.Visible = xlSheetVeryHidden
   
5.     Next
   
6. End Sub

复制代码

wxh100wxh

AVEL 发表于 2011-10-31 17:42

谢谢AVEL的帮忙

李四子

你好，你的代码我使用之后，开始一两次管用，往后就不好使了，并提示：不能设置类 visible 属性。这是什么原因？请赐教。