登录与权限如何设置

mqwe1234

各位大神。小弟现有一个办公文件“项目进度.xlsm”想放到自己电脑共享给其他同事查看数据，所以想做一个登录权限设置，在网上搜到一个“登录权限-通用版”，不知道如何放到我的文件里面实现权限功能，特此向各位大神请教。
项目进度表里面想设6个权限“业务，销售，财务，采购，验收，管理”（管理查看所有的表格）（各自颜色就看各自的文件，其他文件隐藏） Desktop.rar (410.19 KB, 下载次数: 36)

2019-11-18 10:11 上传

点击文件名下载附件

（另外rar文件里登录权限文件的登录名密码为“管理者 888  用户 123”）
还望大神们赐教！

mqwe1234

888    密码  888

mqwe1234

Private Sub Label1_Click()
    If ComboBox1.Value = "管理员" And TextBox1.Value = 888 Then
        'ActiveWindow.DisplayWorkbookTabs = True
        Sheet2.Select
        Application.Visible = True
        End
    ElseIf ComboBox1.Value = "业务" And TextBox1.Value = 123 Then
        'ActiveWindow.DisplayWorkbookTabs = True
        Sheet2.Visible = xlSheetVeryHidden
        Sheet4.Visible = xlSheetVeryHidden
        Sheet5.Visible = xlSheetVeryHidden
        Sheet6.Visible = xlSheetVeryHidden
        Sheet7.Visible = xlSheetVeryHidden
        Sheet8.Visible = xlSheetVeryHidden
        Sheet9.Visible = xlSheetVeryHidden
        Sheet10.Visible = xlSheetVeryHidden
        Sheet11.Visible = xlSheetVeryHidden
        Sheet12.Visible = xlSheetVeryHidden
            Application.Visible = True
        End
   ElseIf ComboBox1.Value = "销售" And TextBox1.Value = 234 Then
        'ActiveWindow.DisplayWorkbookTabs = True
        Sheet2.Visible = xlSheetVeryHidden
        Sheet3.Visible = xlSheetVeryHidden
        Sheet7.Visible = xlSheetVeryHidden
        Sheet8.Visible = xlSheetVeryHidden
        Sheet9.Visible = xlSheetVeryHidden
        Sheet10.Visible = xlSheetVeryHidden
        Sheet11.Visible = xlSheetVeryHidden
        Sheet12.Visible = xlSheetVeryHidden
        Sheet13.Visible = xlSheetVeryHidden
            Application.Visible = True
        End
        Application.Visible = True
        End
    Else
        MsgBox ("密码不正确，无权进入系统")
        On Error Resume Next
        Unload Me
        If Workbooks.Count > 1 Then
            'Application.DisplayFormulaBar = True
            'ThisWorkbook.Close True
            ThisWorkbook.Close savechanges:=False
        Else
            'If ThisWorkbook.Saved = False Then ThisWorkbook.Save
            Application.Quit
        End If
    End If
End Sub

现在磕磕绊绊自己摸索  出现这么一个问题就是有多个不同的权限 我应该怎么写的  我都是根据别人的样本考虑后复制粘贴两个标红的地方  不知道该怎么写

mqwe1234

肯定不对   就是不知道公式应该怎么编  

Yalishanda30

附件供参考，管理888，其他123

mqwe1234

jfdgdfgdgdfgdfgdfgdfg

Yalishanda30

mqwe1234 发表于 2019-11-18 13:50
我又上传一个

答案在6楼。。