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

228630386

隐藏Excel表中某个工作表的内容，输入密码才能查看？
这个是搜索出来的方法，但具体操作不太明白？

Private Sub Worksheet_Activate()
    Worksheets("总库存").Visible = False
    If Application.InputBox("请输入密码") <> "123" Then
        Worksheets(1).Select
    End If
    Worksheets("总库存").Visible = True
End Sub

想将以上方法应用在我的表格中隐藏任务栏中的内容，并非隐藏整个工作表，求大神指教？


百度例子.rar (94.22 KB, 下载次数: 126)

2015-9-11 21:52 上传

点击文件名下载附件

228630386

应该发到，ExcelVBA程序开发的论坛才对，我发错了。{:soso_e105:}

wangchangping

不用VBA也可以, 操作 审阅--保护工作簿--结构  设定密码即可保护当前隐藏SHEET

228630386

wangchangping 发表于 2015-9-11 22:00
不用VBA也可以, 操作 审阅--保护工作簿--结构  设定密码即可保护当前隐藏SHEET

嗯，这个我知道，但是我表格是在共享的情况下使用的，只想一个人查看到这个表的内容，其它人不可以查看到。

crazy0qwer

228630386 发表于 2015-9-11 22:09
嗯，这个我知道，但是我表格是在共享的情况下使用的，只想一个人查看到这个表的内容，其它人不可以查看到 ...

用代码禁用宏后一样会失效。
简单点的可以这样：
按ALT+F11 打开代码窗口 按下图 右键左边空白处 插入模块。


然后工具栏



接着设置隐藏工作表，左边工作表列表中双击要隐藏的工作表，然后下面找到对应属性设置。



你自己使用的时候同样进入代码界面设置visible属性为 第一个就可以显示了。
这样即使禁用宏，也无法显示隐藏的工作表。只能用密码在代码界面显示，当然，要破解也是很容易的。
方法有点麻烦，但是比你的例子安全点。

228630386

crazy0qwer 发表于 2015-9-11 22:23
用代码禁用宏后一样会失效。
简单点的可以这样：
按ALT+F11 打开代码窗口 按下图 右键左边空白处 插入 ...

好像有点复杂，我试试怎么设置，我的表格都会启用所有宏的。

crazy0qwer

228630386 发表于 2015-9-11 22:25
好像有点复杂，我试试怎么设置，我的表格都会启用所有宏的。

看起来是有点麻烦，但是实际上并没有那么麻烦。
你会启用宏不代表所有人都启用宏。
excel上任何加密措施都是不安全的，稍微会搜索的人都能找到破解方法，当然工作簿打开密码除外。

228630386

crazy0qwer 发表于 2015-9-11 22:28
看起来是有点麻烦，但是实际上并没有那么麻烦。
你会启用宏不代表所有人都启用宏。
excel上任何加密措 ...

你的步骤我已经试过了，也明白了，但我不是要这种效果，你可以下载一下我的附件看一下我想要的效果么？可能我表达得不太好，是隐藏工作表的数据，不是整个工作表都隐藏。

crazy0qwer

228630386 发表于 2015-9-11 22:36
你的步骤我已经试过了，也明白了，但我不是要这种效果，你可以下载一下我的附件看一下我想要的效果么？可 ...

那你直接隐藏数据行，然后保护工作表不行？

228630386

crazy0qwer 发表于 2015-9-11 22:28
看起来是有点麻烦，但是实际上并没有那么麻烦。
你会启用宏不代表所有人都启用宏。
excel上任何加密措 ...

因为我部门的同事不太懂这么高深的东西，所以也不用弄得太复杂。