您现在所在的是:

无所不谈

回帖:10个,阅读:1293 [上一页] [1] [2] [下一页]
3219
小菜一碟
文章数:583
年度积分:50
历史总积分:3219
注册时间:2008/1/26
发站内信
发表于:2008/12/1 22:39:00
#0楼
[size=4][size=4][face=楷体_GB2312]在同一个表格中,假如有Sheet1和Sheet2,可以

把Sheet1设置密码,而Sheet2不设置密码。也就

是说打开Sheet1要密码,而打开Sheet2不要密码

?希望大家讨论下,高手赐教下!谢谢!
[/face][/size][/size]
人生在世,生一日,当尽一日之责!
上天生人,有一人,应有一人之业!
15940
上官云野 版主
文章数:7205
年度积分:50
历史总积分:15940
注册时间:2004/4/15
发站内信
2010年度论坛贡献奖
发表于:2008/12/1 23:31:00
#1楼
选中Sheet1,工具\保护\保护工作表;输入密码\确认密码;依次做Sheet2、Sheet3,按上面方法做。
逃避不一定躲的过,
面对不一定最难过,
孤单不一定不快乐,
得到不一定能长久,
失去不一定不再有,
可能为某个原因而伤心难过,
但也能找个理由让自己快乐。
15940
上官云野 版主
文章数:7205
年度积分:50
历史总积分:15940
注册时间:2004/4/15
发站内信
2010年度论坛贡献奖
发表于:2008/12/1 23:38:00
#2楼
哦,不对,这么做只能保证Sheet1\Sheet2......在没有密码的情况下不能被修改,只是一个写保护。

逃避不一定躲的过,
面对不一定最难过,
孤单不一定不快乐,
得到不一定能长久,
失去不一定不再有,
可能为某个原因而伤心难过,
但也能找个理由让自己快乐。
15940
上官云野 版主
文章数:7205
年度积分:50
历史总积分:15940
注册时间:2004/4/15
发站内信
2010年度论坛贡献奖
发表于:2008/12/1 23:47:00
#3楼
查了这么一个相关的“当密码是2时,SHEET2可编辑,SHEET1只读”:
if 密码="2" then sheet2.unprotect sheet1.protect sheet2.visible=true esleif 密码="1" then sheet1.unprotect sheet2.protect sheet2.visible=false endif
逃避不一定躲的过,
面对不一定最难过,
孤单不一定不快乐,
得到不一定能长久,
失去不一定不再有,
可能为某个原因而伤心难过,
但也能找个理由让自己快乐。
19131
飛天小豬
文章数:8227
年度积分:50
历史总积分:19131
注册时间:2004/10/19
发站内信
2010年四月影像
发表于:2008/12/2 9:28:00
#4楼

也不嫌麻烦...

把表1表2做两个文档,一个设置密码,一个不设置就OK了.多简单呀.
风雨过后不一定有美好的天空
不是天晴就会有彩虹
天大地大世界比我想象中朦胧
但愿我会懂得该何处何从
15940
上官云野 版主
文章数:7205
年度积分:50
历史总积分:15940
注册时间:2004/4/15
发站内信
2010年度论坛贡献奖
发表于:2008/12/2 10:19:00
#5楼
呵呵,说得也是。不过现在只是讨论一下,我也想看看高手怎么解决这个问题,学习一下。
逃避不一定躲的过,
面对不一定最难过,
孤单不一定不快乐,
得到不一定能长久,
失去不一定不再有,
可能为某个原因而伤心难过,
但也能找个理由让自己快乐。
匿名用户
文章数:N/A
年度积分:0
历史总积分:0
注册时间:2008/12/2
发站内信
发表于:2008/12/2 16:34:00
#6楼
该用户被锁定,回复内容不予显示!
6938
zhxhyl
文章数:2611
年度积分:50
历史总积分:6938
注册时间:2004/8/27
发站内信
发表于:2008/12/2 18:06:00
#7楼
学习ing
伸张正义兮         浩然正气
3219
小菜一碟
文章数:583
年度积分:50
历史总积分:3219
注册时间:2008/1/26
发站内信
发表于:2008/12/2 21:27:00
#8楼
呵呵,4楼的兄弟的,你说的是一个方法,可是在一个表格中是怎么设置的啊?
人生在世,生一日,当尽一日之责!
上天生人,有一人,应有一人之业!
3219
小菜一碟
文章数:583
年度积分:50
历史总积分:3219
注册时间:2008/1/26
发站内信
发表于:2008/12/3 21:39:00
#9楼
有办法了,问了我们IT部门了,方法如下:
用宏进行“显式”加密
在需要加密的Excel 表中,点击[工具]→[宏]→[Visual Basic编辑器],打开“工程资源管理器”,双击该工作表,在右边的是设置该表属性的编辑窗口,单击该窗口左上方的下拉列表框,选择Worksheet,再从该窗口右上方的列表框中选择Activate(激活)
添加如下代码:(假设“123”为密码,Sheet1为限制权限表格,Sheet2为工作簿中为任何适合的工作表)

Private Sub Worksheet_Activate()

Sheets("sheet1").Cells.Font.ColorIndex = 2 '设置文字颜色为白色

If Application.InputBox("请输入密码:") = 123 Then

Range("A1").Select

ActiveSheet.Cells.Font.ColorIndex = 56

' 设置文字颜色为黑色

Else

MsgBox "密码错误,即将退出!"

Sheets("sheet2").Select

End If

End Sub

每次当你选择该“加密”表的时候都会弹出对话框要求输入密码,正确则进入该表(Sheet1),否则会选择其他表(Sheet2)。
大家可以试试看,管用的,我们IT部门人说还有个方法明天告诉我,告诉我后我在发下!
人生在世,生一日,当尽一日之责!
上天生人,有一人,应有一人之业!

关于我们 | 联系我们 | 广告服务 | 本站动态 | 友情链接 | 法律声明 | 非法和不良信息举报

工控网客服热线:0755-86369299
版权所有 工控网 Copyright©2025 Gkong.com, All Rights Reserved

78.0005