求隐藏Excel表中某个工作表的内容, 输入密码才能查看？并非隐藏整个工作表。

w8899

Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = "隐藏" Then
    Sheet1.Visible = 2
    Sheet3.Visible = 2
    Sheet5.Visible = 2
    Me.CommandButton1.Caption = "显示"
Else
    Sheet1.Visible = -1
    Sheet3.Visible = -1
    Sheet5.Visible = -1
    Me.CommandButton1.Caption = "隐藏"
End If
End Sub

这个同时取消显示工作表怎么加密？

xwklm

不错，学习一下。

shdh

crazy0qwer 发表于 2015-9-12 10:17

我在新建文档中测试没有问题，但为什么放到我现有文档里时候就不能运行了呢，还 提示这个：

yuan1988

看了上面那么多回复 ，都没理解楼主的意思，说白了就是隐藏表格里的内容，但是不隐藏这个表格，简单，既然你会写vba，那我给你提个要点就通了，隐藏就是不可见，那么什么决定可见和不可见呢，当然是字体的颜色了，所以解决办法是颜色 ，步骤：代码写入thisbook的事件下，当打开工作簿的时候，代码运行，弹出输入信心框，设定密码，加入字体颜色设置，如果密码正确，字体颜色改为黑色，就显示出来了，当然了，关闭的时候，字体要恢复到白色，这样单元格内容就隐藏了

Private Sub Workbook_Open()

Application.EnableEvents = True

Sheet2.Cells.Font.Color = RGB(255, 255,255)   白色

Sheet3.Activate

End Sub

Private Sub Worksheet_Activate() '激活工作表触发的程序

a = InputBox("请输入密码")

If a = 123 Then

   Cells.Font.Color = RGB(0, 0, 0)  黑色

   Application.EnableEvents = False    禁用事件

Else

   Sheet3.Activate

End If

End Sub