数据录入查询修改删除vba代码 _数据录入

引：

1、录入数据后，能够锁定单元格，使数据不被修改。
2、当修改单元格时，程序自动将单元格锁定。
3、程序中的工作表保护密码可自由设置。
4、如果要修改锁定的单元格，可先取消工作表保护。
5、单元格B列有数据， A列日期自动填充当前日期
6、划定的区域外可以正常使用。
7、本示例中的 i 列运行多次修改（后期根据需要可以直接修改）。
8、密码147852

仔细看演示操作！有些小繁琐。（针对单张工作表）（继续向下看，还有另一种效果）

文章插图
【数据录入查询修改删除vba代码】仔细看如何设置及功能演示
代码如下

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
Me.Unprotect ("147852") '撤销工作表保护

For Each Rng In Target

If Not Intersect(Rng, Range("A2:H50,J2:K50")) Is Nothing Then '如果被修改的单元格在 A3:I1000 范围内

If Rng.Column = 2 Then
Rng.Offset(0, -1) = Date
Rng.Offset(0, -1).Locked = True
End If

Rng.Locked = True '锁定单元格
End If
Next

Me.Protect ("147852") '保护工作表
Application.EnableEvents = True
End Sub

引2

1、录入数据后，能够锁定单元格，使数据不被修改。
2、当修改单元格时，程序自动将单元格锁定。
3、程序中的工作表保护密码可自由设置。
4、如果要修改锁定的单元格，可先取消工作表保护。
5、密码147852

效果二

文章插图
设置同上

代码如下

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Me.Unprotect ("147852") '撤销工作表保护
For Each Rng In Target
Rng.Locked = True '锁定单元格
Next
Me.Protect ("147852") '保护工作表
End Sub