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

zjdh

少如 发表于 2018-7-9 10:25
若是有30几个工作表的话,  您的代码应如何修改呢?
谢谢!

除了修改 ARR = Sheet8.Range("A3:K" & Sheet8.Range("A65536").End(3).Row)   表示数据为 A列至K列，同理类推。
还只要修改这一句：
For j = 3 To 11      表示第3列至11列共9个表，依次类推。

6楼回帖恰恰错在这一句！！

少如

zjdh 发表于 2018-7-9 21:57
除了修改 ARR = Sheet8.Range("A3:K" & Sheet8.Range("A65536").End(3).Row)   表示数据为 A列至K列，同理 ...

老师:   我不懂VBA,   自已修改未成功,  麻烦您给修改一下吧.
谢谢了! 权限登录cccn - 副本.zip (480.73 KB, 下载次数: 28)

2018-7-10 08:50 上传

点击文件名下载附件

年轻人·老梦

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

可以给批注解释一下吗

zjdh

年轻人·老梦 发表于 2018-7-10 10:20
可以给批注解释一下吗

Public ARR    '设置公共变量
Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then TextBox1.SetFocus    '将焦点转移到TextBox1
End Sub

Private Sub UserForm_Activate()
    ARR = Sheet8.Range("A3:Z" & Sheet8.Range("A65536").End(3).Row) '数据赋值给数组
    TextBox1.Text = ""
    For i = 2 To UBound(ARR)              '从数组提取用户名到ComboBox1
       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 26      '在该行循环
                If ARR(i, j) Then Sheets(ARR(1, j)).Visible = True    '若行中数据为1，则对应工作表显示
            Next
            Sheets("封面").Visible = False   '隐藏"封面”页
            MsgBox ComboBox1.Text & "你好!欢迎你进入本系统", 1 + 64, "财务系统"
            Application.Visible = True   '工作簿显示
            Unload UserForm1       '关闭用户窗体
            Exit Sub      '退出宏
        End If
    Next
    MsgBox "用户名或密码输入错误,请重新输入！", vbOKOnly + vbExclamation, "错误"
    TextBox1 = ""
End Sub

zjdh

少如 发表于 2018-7-10 08:50
老师:   我不懂VBA,   自已修改未成功,  麻烦您给修改一下吧.
谢谢了!

增加一个“封面”，当用户不启用宏时，只能看到“封面”，并有提示，要求启用宏。
权限登录cccn.rar (620.31 KB, 下载次数: 204)

2018-7-10 23:25 上传

点击文件名下载附件

xwklm

看上去蛮强大的。

zjdh

再作一点修改，当登录取消时，文件能退出，Excel也关闭。

权限登录2cccn.rar (622.09 KB, 下载次数: 379)

2018-7-11 09:31 上传

点击文件名下载附件

zjdh

Private Sub CommandButton2_Click()
    Unload UserForm1
    ThisWorkbook.Close False  '关闭文件
    Application.Quit          '关闭Excel
End Sub

年轻人·老梦

zjdh 发表于 2018-7-11 09:32
Private Sub CommandButton2_Click()
    Unload UserForm1
    ThisWorkbook.Close False  '关闭文件

非常感谢，学无止境，Public ARR    '设置公共变量
可以把数组arr那两段再详细一点吗，尤其是取值

zjdh

ARR = Sheet8.Range("A3:Z" & Sheet8.Range("A65536").End(3).Row)

Sheet8.Range("A65536").End(3).Row  取得sheet8  A列最后一个有信息单元的行号

假设以上行号为8，则ARR = Sheet8.Range("A3:Z8"）区域的数据