excel设置不同查询密码，仅能查询相应内容

linda80200

求助各位老师，要求点击附件右侧四个button后，提示输入密码(南方区:123,北方区:234,西区:345,all: 111)，三次输入密码机会

默认数据区域(B-E列)是隐藏，用户不能取消隐藏
1 区域用户输入正确密码后才能看到对应的列(如点击南方区能看到A列和C列)，B列始终隐藏
2 如总部用户点击all并输入111后可看到整张表内容
自己做了下，总是有问题，希望各位大咖指点，万分感谢！

ynzsvt

做了南方区和全部隐藏，其他的自己仿照南方区。

饮冰e士

练习一下：

1. Sub showDATA()
   
2. Dim s1$, s2$, n%
   
3.   s1 = Application.Caller
   
4.   ActiveSheet.Unprotect Password:=mYpASS
   
5. 110:
   
6.   n = n + 1
   
7.   If n > 3 Then
   
8.     MsgBox "密码错误3次，这不是你该看的！", vbInformation, "提醒"
   
9.     Exit Sub
   
10.     ActiveSheet.Protect Password:=mYpASS
    
11.   End If
    
12.   s2 = Application.InputBox("请输入密码：", "权限管理", Type:=2)
    
13.   Columns("B:C").Hidden = True
    
14.   Select Case s1
    
15.   Case "南方区":
    
16.     If s2 = "123" Then Columns("C").Hidden = False Else GoTo 110
    
17.   Case "北方区":
    
18.     If s2 = "234" Then Columns("D").Hidden = False Else GoTo 110
    
19.   Case "西区":
    
20.     If s2 = "345" Then Columns("E").Hidden = False Else GoTo 110
    
21.   Case "all":
    
22.     If s2 = "111" Then Columns("A:E").Hidden = False Else GoTo 110
    
23.   End Select
    
24.   ActiveSheet.Protect Password:=mYpASS
    
25.   Beep
    
26. End Sub

复制代码

linda80200

ynzsvt 发表于 2024-8-25 19:11
做了南方区和全部隐藏，其他的自己仿照南方区。

谢谢，已解决！

peteryhr

以前做过类似的。根据经验将数据全部放在源表（隐藏起来）。然后在按钮表输入密码，取对应权限的数据列过来更好。上面做好的表格保密性不高，直接复制就可以将隐藏数据看到啦。