excel - 插入值后保护任何单元格

Question

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

标签： excelvba

Answer 1

终于自己解决了。解决方案

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