Excel 插入值后保护任何单元格

我想制作一张excel表格，任何人都可以在其中插入数据。但一旦用户插入数据后，该用户就无法更改。只有一个人说管理员可以更改数据。

最终由我自己解决。解决方案

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c1 As Range
ActiveSheet.Unprotect Password:="123"
For Each c1 In Target
If c1.Value <> "" Then
c1.Locked = True
End If
Next c1
ActiveSheet.Protect Password:="123"
End Sub

Private子工作表\u更改（ByVal目标作为范围）
变暗c1作为范围
ActiveSheet.Unprotect密码：=“123”
对于目标中的每个c1
如果c1.值为“”，则
c1.锁定=真
如果结束
下一个c1
ActiveSheet.保护密码：=“123”
端接头

提供的此解决方案不起作用。您必须在第一步中添加一个，并将所有单元格的格式设置为unlocked。