单元格输入内容后禁止修改

chs123sos · 发表于 2012-7-30 15:12

这个给了我不少灵感呼.

Excelworm · 发表于 2012-11-26 16:35

Public SBefore

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SBefore = ActiveCell.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 And .Column = 2 Then

      If .Value <> SBefore And SBefore <> "" Then
      .Value = SBefore
      MsgBox "Cannot change."
      End If
End If
End With
End Sub

wyzdddl · 发表于 2013-1-14 14:29

Excelworm 发表于 2012-11-26 16:35
Public SBefore

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

没有任何反应，

solongu · 发表于 2013-8-6 16:57

不是我想要的，谢谢

jackyu · 发表于 2014-7-9 18:08

请问8楼的解决方案中如何设置只是A列或者B列在未输入前是可以输入，输入完成后按回车键后就不能修改了。其他单元格不受影响呢？

V5678 · 发表于 2014-8-8 00:18

漂亮漂亮漂亮漂亮漂亮漂亮

anattaanimitta · 发表于 2016-1-16 13:52

学习了！太好了。如果能使程序执行选择所需要锁定的单元格就好了。比如：指定B列与C列修改时需要输入密码等

lijie6 · 发表于 2021-2-24 00:58

太好了！感谢老师的付出！

3392400 · 发表于 2021-3-10 10:15

yaozong 发表于 2011-6-8 12:53
参考。。。
修改密码：123

能否帮我改成只作用于某一列，而不是整表？谢谢您！

563406396 · 发表于 2021-10-7 23:55

yaozong 发表于 2011-6-8 12:53
参考。。。
修改密码：123

该代码，删除已填数据，可以重新输入。如何添加代码使得已填数据不得删除呢

		自动登录	找回密码
密码			免费注册