excel输入确认后不能修改如何实现？

按ALT+F11进入VBA编辑器，双击工程窗口中的工作表名字如“Sheet1”（或者右键点击需要实现此功能的工作表标签名，按“查看代码”），在其代码窗口中输入以下代码。此代码使用自动设置工作表保护来达到输入后不能修改的目的。需要临时取消此保护功能时将代码中IsProtect=True的True改为False，或者将代码全部删除。QQ690964731

Dim Ps as String
Dim IsProtect as Boolean
'作者：QSDDZ 2009-11-19 QQ：690964731
Private Sub WorkSheet_SelectionChange(Byval Target as Range)
Ps="123456" '这是保护工作表时用的密码
IsProtect=True '这个参数可设置True或False,分别是开启和取消此代码的保护功能。
If Not IsProtect Then Exit Sub
If Target.Count=1 then
If Target="" Then
ActiveSheet.UnProtect PassWord:=Ps
Exit Sub
End If
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,Scenarios:=True, PassWord:=Ps
End Sub

哇！你好大方，可以帮你写vba代码，需要的话，HI我，今天困了 要睡觉了

通过保护工作表功能实现：审阅-保护工作表-输入一个比较复杂的密码并记住即可：

为何Excel修改时不能输入汉字 Excel如何设置权限（数据输入后就不能被修改） 如何做到输入内容后不能修改？ excel 不能输入日期 求教各位高手：修改用户密码为中文后，系统确认修改成功，但是该用户名不能使用 为何在Excel中不能输入如00798这样的数字 请问如何用EXCEL制作现金日记帐？希望每日输入数据后自动列出结果。 Excel中输入分数后如何用鼠标拖拉动作完成分子的自然增长 如何用excel宏来实现输入后自动换单元格啊 Excel不能输入数字31