有2种方案,一种是设置不显示工作表标签,也就无需隐藏工作表。
另一种是用VBA代码实现,代码如下(具体示例文件可在链接中下载):
Private Sub Worksheet_Activate()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> "目录" Then sht.Visible = xlSheetVeryHidden
Next sht
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End Sub
追问就是这个代码的问题 我对EXCEL 用的不好 更对VBA 一窍不通 这个代码是放哪里的 怎么放的啊