请求开发VBA登录表单：实现用户对指定工作表的访问权限控制

嘿，我来帮你搞定这个带登录表单的权限控制需求！你已经搭好用户名、密码框和登录按钮的表单了，接下来咱们一步步实现核心功能，确保没权限的人看不到成本核算内容：

第一步：先存好用户权限信息（用隐藏工作表更安全） #

先新建一个工作表，命名为UserCredentials，然后把它隐藏起来（后期可以设为非常隐藏更安全）。这个表用来存三类信息：

• A列：用户名（比如张三）
• B列：对应密码（暂时先明文，后面给你说加密小技巧）
• C列：权限标识（比如Full代表能看成本核算，Restricted代表只能看新产品开发内容）
  注意：第一行可以做表头，比如“用户名”“密码”“权限”，从第二行开始存用户数据

第二步：给登录表单加逻辑代码 #

打开VBA编辑器（按Alt+F11），找到你的登录表单（比如叫frmLogin），双击打开后粘贴下面的代码：

Private Sub cmdLogin_Click()
    Dim wsCred As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim inputUser As String
    Dim inputPass As String
    Dim userPerm As String
    
    ' 拿用户输入的账号密码
    inputUser = Trim(Me.txtUser.Value)
    inputPass = Trim(Me.txtPass.Value)
    
    ' 先检查有没有空着的
    If inputUser = "" Or inputPass = "" Then
        MsgBox "用户名和密码都得填哦！", vbExclamation, "提示"
        Me.txtUser.SetFocus
        Exit Sub
    End If
    
    ' 指向存权限的隐藏表
    Set wsCred = ThisWorkbook.Worksheets("UserCredentials")
    lastRow = wsCred.Cells(wsCred.Rows.Count, "A").End(xlUp).Row
    
    ' 挨个找匹配的用户
    For i = 2 To lastRow
        If wsCred.Cells(i, "A").Value = inputUser Then
            ' 密码对得上的话就处理权限
            If wsCred.Cells(i, "B").Value = inputPass Then
                userPerm = wsCred.Cells(i, "C").Value
                Call SetSheetPermissions(userPerm)
                Me.Hide
                Exit Sub
            Else
                MsgBox "密码错啦，再试一次！", vbCritical, "出错了"
                Me.txtPass.Value = ""
                Me.txtPass.SetFocus
                Exit Sub
            End If
        End If
    Next i
    
    ' 找不到用户的情况
    MsgBox "没这个用户名哦，找管理员问问吧！", vbCritical, "出错了"
    Me.txtUser.Value = ""
    Me.txtPass.Value = ""
    Me.txtUser.SetFocus
End Sub

' 专门处理工作表可见性的小工具
Private Sub SetSheetPermissions(perm As String)
    Dim ws As Worksheet
    
    ' 先把所有表都藏起来
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetHidden
    Next ws
    
    ' 所有人都能看新产品开发表
    ThisWorkbook.Worksheets("新产品开发").Visible = xlSheetVisible
    
    ' 全权限用户解锁成本核算表
    If perm = "Full" Then
        ThisWorkbook.Worksheets("成本核算").Visible = xlSheetVisible
    End If
End Sub

' 防止用户点叉跳过登录
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        Me.Hide
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

第三步：让工作簿一打开就弹登录窗口 #

在VBA编辑器里找到ThisWorkbook模块（左边项目栏里的那个），双击打开后粘贴这段代码：

Private Sub Workbook_Open()
    ' 打开就强制弹登录框，不让跳过
    frmLogin.Show vbModal
End Sub

几个提升安全性的小细节 #

• 给VBA项目加密码：右键点击VBA项目→VBAProject属性→保护选项卡，勾选“锁定项目以查看”，设置密码，防止别人改代码。
• 把权限表设为非常隐藏：在VBA里加一句wsCred.Visible = xlSheetVeryHidden，这样用户没法通过Excel界面取消隐藏。
• 密码加密：如果不想明文存密码，可以用简单的Base64加密，或者自己写个小加密函数，比如把每个字符的ASCII码加3再存，验证的时候减3还原，比明文安全多了。

内容的提问来源于stack exchange，提问作者Brian Moore