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

1. 选择整个工作表（点行列标志交叉处），设置单元格格式——保护——去掉“锁定”的对勾。
2. 选择要保护的单元格或区域（可用Ctrl+鼠标选择不连续区域；也可通过定位找到具有相同特征的单元格，如所有输入了公式的单元格），同上，加上“锁定”的对勾，这样只有你现在选择的单元格加上了锁定。
3. 工具菜单——保护——保护工作表，下面的列表框中勾选允许别人能做工作，再加上密码。就达到你所要的目的了。

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

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