|
蒋德宏 发表于 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
就可以了!!
至于何时需要对 总库存 进行隐藏,那就是你需要考虑的了!! |
|