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

年轻人·老梦

zjdh 发表于 2018-7-22 16:10

大神，能将Excel中的坐标直接转换为CAD图，的代码。通过vbaa实现

ahczr

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

大神你好，我下载了你修改的文件，但是没有密码打不开，能告诉我一下吗，我想看看，学习一下

扣脚表妹

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

打不开，没有密码。看得到代码，但是看不到表格

zjdh

年轻人·老梦 发表于 2018-7-23 14:14
大神，03版excel能实现吗？

这是2007及以上版本的条件格式，若需要在2003版实现则要复杂多啦，得采用VBA编程，而且扩展条目也不方便！

zjdh

年轻人·老梦 发表于 2018-7-26 14:38
大神，能将Excel中的坐标直接转换为CAD图，的代码。通过vbaa实现

这个没有研究过！

zjdh

扣脚表妹 发表于 2018-7-27 19:35
打不开，没有密码。看得到代码，但是看不到表格

你们也感兴趣？请看下图：

年轻人·老梦

ahczr 发表于 2018-7-26 20:22
大神你好，我下载了你修改的文件，但是没有密码打不开，能告诉我一下吗，我想看看，学习一下

可以找我呀

nmjarry

感谢，我正在使用这个模板。但是遇到一个问题，只能最多26个表，我做的表比较杂，可能超过26个，该怎样修改呢。

zjdh

1. 修改“登录权限设置”
2. 修改以下红色数字
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 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

may1588

年轻人·老梦 发表于 2018-8-17 21:06
可以找我呀

我有个，也需要做个登陆界面的，想请你帮帮忙啊，多谢。http://club.excelhome.net/forum. ... ead&tid=1455369