excel中如何用鼠标点击该单元格就显示隐藏表格中内容

在该表写下面程序实现：

Private Sub Worksheet_Activate()

    Sheet2.Visible = xlSheetHidden

    Sheet3.Visible = xlSheetHidden

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 Then

    If Target <> "" Then

        bm = Target.Value

        Sheets(bm).Visible = -1

        Sheets(bm).Select

    End If

End If

End Sub

1、在Sheet1的表，A列有表的名称：Sheet2、Sheet3(这两表目前为隐藏）

2、在Sheet1有上面的程序后，点选A1单元，就打开了对应名称的表格：

3、选回Sheet1，又自动隐藏Sheet2:

在电子表格里，我们的一些数据；信息不想让人看到，怎么办呢？下面和朋友们分享一下这方面的经验。今天分享三种不同隐藏/显示的方式。

步骤如下：
http://jingyan.baidu.com/article/47a29f24114f30c014239922.html