同一工作簿中对不同工作表设置查看密码，输入正确密码才能显示相应工作表

shdh · 发表于 2019-9-6 15:37

最近想把给单位其他部门看的表格进行加密，只有相应人员输入各自的密码才能查看自己相应的表格。在论坛上搜索后在
http://club.excelhome.net/thread-1219741-2-1.html发现有类似功能实现，但在自己的表格中输入密码却不能弹出相应工作表。请高手帮忙看下问题在何处。

学生名册.rar (888.19 KB, 下载次数: 57)

laynet · 发表于 2019-9-6 18:09

本帖最后由 laynet 于 2019-9-6 22:37 编辑

密码本1.rar (11.66 KB, 下载次数: 61)
随便写写,还有很多漏洞,得你自己补上,密码不能写在工作表内,得写在宏里面,然后给宏加上密码.

Sub 输入密码()
Dim P(), S()
ReDim P(1 To 100)
ReDim S(1 To 100)
P(1) = "1" '密码1
P(2) = "2" '密码2
P(3) = "3" '密码3
P(4) = "4" '密码4
S(1) = "Sheet1" '密码1对应的表
S(2) = "Sheet2" '密码2对应的表
S(3) = "Sheet3" '密码3对应的表
S(4) = "Sheet4" '密码4对应的表
mm = 1
m = InputBox("请输入密码查看内容", "提示")
For i = 1 To 100
On Error Resume Next
Sheets(S(i)).Visible = xlVeryHidden '-1显示,xlVeryHidden隐藏
If m = P(i) Then
On Error Resume Next
Sheets(S(i)).Visible = -1 '-1显示,xlVeryHidden隐藏
Sheets(S(i)).Select
mm = 0
End If
Next i
If mm = 1 Then MsgBox "你确定你有查看权限？", vbOKOnly
End Sub

复制代码

shdh · 发表于 2019-9-9 09:40

laynet 发表于 2019-9-6 18:09
随便写写,还有很多漏洞,得你自己补上,密码不能写在工作表内,得写在宏里面,然后给宏加上密码.

想问下：如何能把弹出的输入密码的框中的信息用*号代替？

zpy2 · 发表于 2019-9-9 09:57

shdh 发表于 2019-9-9 09:40
想问下：如何能把弹出的输入密码的框中的信息用*号代替？

这恐怕要userform吧，inputbox没有

laynet · 发表于 2019-9-9 16:32

密码本.rar (413.71 KB, 下载次数: 165)

这个怎么样?
微信图片_20190909163142.png

shdh · 发表于 2019-9-10 23:20

laynet 发表于 2019-9-9 16:32
这个怎么样?

感谢你的帮助，多次试验终于成功了，还想再请教下，现在的情况是密码输入后一直都保存在输入框里，除非关掉，能不能再切换到首页的时候，自动清空密码框的内容？

shdh · 发表于 2019-9-10 23:31

Dim ctlText As Object
         For Each ctlText In Me.Controls
            If TypeOf ctlText Is TextBox Then
                  ctlText.Enabled = False
            End If
         Next


论坛里好象有段这个代码，但自己放进去不对，不知道具体该放在主页里还是模块里，但总是提示 For Each ctlText In Me.Controls 有问题。