只能输入不能改,不信你来试试看
我们在录入数据过程中可能要暂时离开一会儿。为了防止已经录入的数据被同事修改掉,咱们可以通过设置,让工作表仅可以输入数据,要对已经输入的数据修改时,必须输入密码。



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If .Value<> '' Then
PW =InputBox('修改内容请输入密码:')
If PW<> '123' Then
Cells(1,1).Select
Else
Exit Sub
End If
End If
End With
End Sub

赞 (0)