基于ComboBox值解锁指定单元格区域的实现方法

一、基础单元格锁定设置 #

首先调整工作表单元格的锁定属性，因为工作表保护后，仅未锁定的单元格允许编辑：

1. 选中整张工作表（点击左上角行号列标交叉处），右键选择「设置单元格格式」→「保护」，取消勾选「锁定」，点击确定。
2. 这一步是先解锁所有单元格，后续再根据角色动态锁定不需要编辑的区域。

二、登录窗体的VBA逻辑实现 #

假设你的登录窗体包含：用户名文本框（txtUsername）、密码文本框（txtPassword）、角色下拉框（cboRole，选项为x/y）、登录按钮（cmdLogin）。在窗体的代码模块中添加以下按钮点击事件代码：

Private Sub cmdLogin_Click()
    Dim targetWs As Worksheet
    Set targetWs = ThisWorkbook.Worksheets("目标工作表名称") '替换为你的实际工作表名
    Const PROTECT_PWD As String = "你的保护密码" '替换为工作表的保护密码
    
    ' 校验输入完整性
    If txtUsername.Value = "" Or txtPassword.Value = "" Or cboRole.Value = "" Then
        MsgBox "请填写完整登录信息", vbExclamation
        Exit Sub
    End If
    
    ' 先解除工作表保护
    targetWs.Unprotect Password:=PROTECT_PWD
    
    ' 根据角色配置可编辑区域
    Select Case cboRole.Value
        Case "x"
            ' 锁定所有单元格，仅解锁C:D区域
            targetWs.Cells.Locked = True
            targetWs.Range("C:D").Locked = False
        Case "y"
            ' 锁定所有单元格，仅解锁E:F区域
            targetWs.Cells.Locked = True
            targetWs.Range("E:F").Locked = False
        Case Else
            MsgBox "无效角色，请重新选择", vbExclamation
            targetWs.Protect Password:=PROTECT_PWD
            Exit Sub
    End Select
    
    ' 重新保护工作表，仅允许编辑未锁定区域
    targetWs.Protect Password:=PROTECT_PWD, UserInterfaceOnly:=True
    ' UserInterfaceOnly设为True后，VBA后续操作无需重复解锁工作表
    
    MsgBox "登录成功，当前角色：" & cboRole.Value, vbInformation
    Me.Hide '隐藏登录窗体
End Sub

三、优化建议（可选） #

1. 用户名密码验证优化：避免硬编码账号密码，可在隐藏工作表（如命名为UserList）中存储用户名、密码、对应角色，用以下代码替换校验逻辑：

Dim userRow As Long
On Error Resume Next
userRow = Application.Match(txtUsername.Value, ThisWorkbook.Worksheets("UserList").Range("A:A"), 0)
On Error GoTo 0

If userRow = 0 Then
    MsgBox "用户名不存在", vbCritical
    Exit Sub
End If
If ThisWorkbook.Worksheets("UserList").Cells(userRow, 2).Value <> txtPassword.Value Then
    MsgBox "密码错误", vbCritical
    Exit Sub
End If
' 自动匹配角色，无需用户手动选择
cboRole.Value = ThisWorkbook.Worksheets("UserList").Cells(userRow, 3).Value

2. 自动弹出登录窗体：在工作簿的ThisWorkbook代码模块中添加以下代码，打开文件时自动显示登录窗体：

Private Sub Workbook_Open()
    UserForm1.Show '替换为你的登录窗体名称
End Sub

内容的提问来源于stack exchange，提问作者Andrei Moza