非高手免进！！EXCEL中,如何设置一旦在单元格内输入新数据后就自动受密码保护不能作修改
发布网友
发布时间：2022-04-23 00:39
共5个回答
热心网友
时间：2023-10-09 10:36
方法是有的。用VBA解决。
工作表保护密码:123 你可以在代码中自己更改
工作表中只要单元格不为空程序就会锁定保护单元格
右键单击工作表标签，在右键菜单中选择“查看代码”，然后在出现的工作表代码编辑窗口复制粘贴以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count = 1 Then
Unprotect Password:=123
Cells.Locked = False
Set rng = UsedRange
For i = 1 To rng.Cells.Count
If rng(i) <> "" Then
rng(i).Locked = True
End If
Next
Protect Password:=123
EnableSelection = xlUnlockedCells
End If
End Sub
另外说明：如果要修改原有数据是要解除工作表保护后才能修改。
热心网友
时间：2023-10-09 10:37
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect password:="yzv"
If Target.Value <> "" Then Target.Locked = True: Target.Interior.ColorIndex = 6
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="yzv"
End Sub
注意：先全选工作表，格式－单元格－保护－锁定的勾勾去掉。
密码：yzv你自己可以更改，但要记住。两处要同时更改，改要一样的改。
参考资料：在需要保护的工作表的查看代码处输入上述代码！
热心网友
时间：2023-10-09 10:37
同意二楼的看法，你所需要的无非是先取消保护，待录入后再设置保护即可。只需2步
热心网友
时间：2023-10-09 10:38
你需要的专业的版本控制软件来实现这个功能。
VSS或者subversion 都可以。
热心网友
时间：2023-10-09 10:38
估计比较困难，因为电脑并不能判断你就是主人，要么整体保护，要么整体取消保护，不可能随时保护。这在逻辑上都是矛盾的。如果你能输入，那电脑就必须同意别人可以输入，电脑确认你身份的唯一途径就是密码，你想不输入密码解锁又要输入那是不可能的。
