Защитите любую ячейку после вставки значения

Question

Я хочу создать лист Excel, куда каждый может вставлять данные. но как только пользователь вставляет данные после этого, пользователь не может изменить. только один человек сказал, что администратор может изменять данные.

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