Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 12131|回复: 16

[已解决]如何让工作表要输入密码以后才能打开?

[复制链接]
发表于 2013-1-23 18:57 | 显示全部楼层 |阅读模式
请哪位老师帮我写一段代码 就是要打开总库存的工作表要输入密码才可以  谢谢! 打开工作表输入密码的问题.rar (25.75 KB, 下载次数: 58)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-1-23 19:42 | 显示全部楼层
你想要做的具体操作方式是怎样的??

也就是你相怎么样操作来打开 总库存 工作表
回复

使用道具 举报

 楼主| 发表于 2013-1-23 19:47 | 显示全部楼层
无聊的疯子 发表于 2013-1-23 19:42
你想要做的具体操作方式是怎样的??

也就是你相怎么样操作来打开 总库存 工作表

就是比如当我从其他的工作表切换到总库存的时候 就需要输入密码 不然就进不了总库存
回复

使用道具 举报

发表于 2013-1-23 19:57 | 显示全部楼层
蒋德宏 发表于 2013-1-23 19:47
就是比如当我从其他的工作表切换到总库存的时候 就需要输入密码 不然就进不了总库存

如果你只有这几个表的话,可以考虑使用下面这个方法

1,首先设置 sheets("总库存").visible=2  也就是深度隐藏 总库存 表
2,在每个工作表的比如 "K1"  单元格输入 "总库存"  ,设置字体颜色 "蓝色" ,添加文字下划线
  也就是做成 "超连接" 的字体样式
3,在 thisworkbook 里使用
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)  事件
参数 sh 表示当前激活工作表, target 表示当前操作的单元格(可以是一个区域,也可以是一个单元格)

在事件里判断  sh.name 是不是我们允许 选择 k1 单元格就能进入 总库存 工作表的工作表
如果是,再判断 选择的单元格 也就是 target.address 是不是 K1 ,这里应该是 $K$1 ,
如果是选择的 K1 ,则要求输入密码,
密码输入正确后
设置 sheets("总库存").visible=-1
然后 sheets("总库存").select
就可以了!!

至于何时需要对 总库存 进行隐藏,那就是你需要考虑的了!!
回复

使用道具 举报

发表于 2013-1-23 20:04 | 显示全部楼层
在总库存工作表里加代码
  1. Private Sub Worksheet_Activate()
  2.     Worksheets("总库存").Visible = False
  3.     If Application.InputBox("请输入密码") <> "123" Then
  4.         Worksheets(1).Select
  5.     End If
  6.     Worksheets("总库存").Visible = True
  7. End Sub
复制代码

点评

还有个问题就是,当密码错误后,总库存表被隐藏了,你就无法再次选择它了!!  发表于 2013-1-23 20:12
这样如果选择 总库存 表时,按着不放,表里的内容就可以全看到了!!  发表于 2013-1-23 20:10
回复

使用道具 举报

 楼主| 发表于 2013-1-23 20:11 | 显示全部楼层
hwc2ycy 发表于 2013-1-23 20:04
在总库存工作表里加代码

老师你好  我是想在没有输入密码以前看不见内容  要输入密码以后才可以看见内容这样可以吗?
回复

使用道具 举报

发表于 2013-1-23 20:15 | 显示全部楼层    本楼为最佳答案   
隐藏数据的问题.rar (26.09 KB, 下载次数: 391)

评分

参与人数 1 +1 收起 理由
蒋德宏 + 1 赞一个!

查看全部评分

回复

使用道具 举报

发表于 2013-1-23 20:16 | 显示全部楼层
hwc2ycy 发表于 2013-1-23 20:04
在总库存工作表里加代码

呵呵,已经修正了。
回复

使用道具 举报

发表于 2013-1-23 20:17 | 显示全部楼层
蒋德宏 发表于 2013-1-23 20:11
老师你好  我是想在没有输入密码以前看不见内容  要输入密码以后才可以看见内容这样可以吗?

整合到你的表的时候,都考虑到了。
回复

使用道具 举报

发表于 2013-1-23 20:18 | 显示全部楼层
这种方法只能防下菜鸟而已。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:26 , Processed in 0.372284 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表