Excel单元格插入值后保护设置：仅管理员可修改已录入数据

我来帮你搞定这个需求——让所有用户能自由录入数据，一旦录入完成，对应单元格自动锁死，只有指定管理员能修改。下面是一步步的实操方案，亲测好用：

一、先做基础的单元格解锁设置 #

• 选中整个工作表：点击左上角行号和列标的交叉点（就是A1单元格左上角的那个小方块）。
• 右键→「设置单元格格式」→切换到「保护」选项卡，取消勾选「锁定」，点击确定。这样默认所有单元格都是可编辑的，后面我们再通过代码锁定已录入内容的单元格。

二、添加VBA代码实现自动锁定功能 #

按下Alt + F11打开VBA编辑器，在左侧的「工程资源管理器」里找到你的目标工作表（比如Sheet1），双击它打开代码窗口，然后粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 防止代码重复触发Change事件，避免死循环
    Application.EnableEvents = False
    
    ' 遍历所有被修改的单元格
    For Each cell In Target
        ' 只要单元格不为空，就锁定它
        If Not IsEmpty(cell) Then
            cell.Locked = True
        End If
    Next cell
    
    ' 重新保护工作表，把"普通用户保护密码"替换成你想设置的密码
    Me.Protect Password:="普通用户保护密码", UserInterfaceOnly:=True
    
    ' 恢复事件触发，不然后续的修改不会触发代码
    Application.EnableEvents = True
End Sub

代码关键点说明： #

• UserInterfaceOnly:=True是核心：它允许VBA在工作表处于保护状态时修改单元格属性，不用每次都手动解锁再保护，非常省心。
• 这段代码会在单元格内容被修改（录入数据）后，自动锁定该单元格，然后立刻重新保护工作表，普通用户就改不了了。

三、给管理员设置专属修改权限 #

如果想让管理员不用每次输密码就能修改，或者区分普通用户和管理员，可以用下面两种方式：

方式1：手动解锁（简单直接） #

管理员需要修改已锁定单元格时，点击「审阅」选项卡→「撤销工作表保护」，输入你设置的"普通用户保护密码"，修改完成后再点击「保护工作表」重新上锁就行。

方式2：通过Windows用户名自动识别（更便捷） #

适合企业内部环境，给指定Windows用户名的用户自动开放修改权限，不用输密码。在刚才的工作表代码窗口里再粘贴下面的代码：

' 管理员双击单元格时自动解锁工作表
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 把"Admin01"替换成管理员的Windows用户名，多个管理员可以用Or连接，比如：
    ' If Environ("Username") = "Admin01" Or Environ("Username") = "Admin02" Then
    If Environ("Username") = "Admin01" Then
        Me.Unprotect Password:="普通用户保护密码"
        Cancel = True ' 取消默认的双击编辑行为，直接进入修改状态
    End If
End Sub

' 管理员离开单元格时自动重新保护工作表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Environ("Username") = "Admin01" Then
        Me.Protect Password:="普通用户保护密码", UserInterfaceOnly:=True
    End If
End Sub

四、最后别忘了这些细节 #

• 保存文件时，一定要选择「Excel启用宏的工作簿（*.xlsm）」格式，不然VBA代码会失效！
• 测试一下：用普通用户账号打开文件，录入数据后尝试修改，应该会提示单元格被保护；用管理员账号打开，双击就能修改已锁定的单元格，离开后自动上锁。

内容的提问来源于stack exchange，提问作者Md. Foysal