多用户登陆权限设置匹配不同的工作表

年轻人·老梦 · 发表于 2018-7-8 08:57

逛了两天的贴吧，零基础，参考自己做了一个多用户登陆权属设置的表格，有路过的大神帮忙看一下代码，运行存在下标越界没有密码，宏被禁止了，减压后可以打开看的

cwpccna · 发表于 2018-7-8 09:10

这么犀利，问一下实现原理，都能搞定这么复杂的功能，怎么卡在语法问题上

zjdh · 发表于 2018-7-8 20:50

帮你修改一下

权限登录.rar (444.33 KB, 下载次数: 862)

补充内容 (2019-11-17 11:51):
密码见：http://club.excelhome.net/forum. ... 44&pid=10149357

少如 · 发表于 2018-7-9 10:25

zjdh 发表于 2018-7-8 20:50
帮你修改一下

若是有30几个工作表的话, 您的代码应如何修改呢?
谢谢!

少如 · 发表于 2018-7-9 10:27

本帖最后由少如于 2018-7-9 10:40 编辑

请见楼下附件:

少如 · 发表于 2018-7-9 10:39

请见附件

副本副本权限登录cccn.zip (479.46 KB, 下载次数: 591)

年轻人·老梦 · 发表于 2018-7-9 14:26

少如发表于 2018-7-9 10:39
请见附件

Public ARR
Private Sub UserForm_Activate()
ARR = Sheet8.Range("A3:K" & Sheet8.Range("A65536").End(3).Row)
TextBox1.Text = ""
For i = 2 To UBound(ARR)
   ComboBox1.AddItem ARR(i, 1)
Next
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
Private Sub CommandButton1_Click() '登录按钮
For i = 2 To UBound(ARR)
      If ComboBox1.Text = ARR(i, 1) And TextBox1.Text = ARR(i, 2) Then
         For j = 3 To 11
            If ARR(i, j) Then Sheets(ARR(1, j)).Visible = True
         Next
         MsgBox ComboBox1.Text & "你好!欢迎你进入本系统", 1 + 64, "六—学区间1号施工竖井"
         Application.Visible = True
         Unload UserForm1
         Exit Sub
      End If
Next
MsgBox "用户名或密码输入错误,请重新输入！", vbOKOnly + vbExclamation, "错误"
TextBox1 = ""
End Sub
可以给批注解释一下吗？

年轻人·老梦 · 发表于 2018-7-9 16:25

zjdh 发表于 2018-7-8 20:50
帮你修改一下

感谢修改，问题是修改后，每一个用户名登陆看的都是一样的哦

zjdh · 发表于 2018-7-9 21:18

年轻人·老梦发表于 2018-7-9 16:25
感谢修改，问题是修改后，每一个用户名登陆看的都是一样的哦

怎么可能？

zjdh · 发表于 2018-7-9 21:54

		自动登录	找回密码
密码			免费注册

[讨论] 多用户登陆权限设置匹配不同的工作表

评分