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

引：

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

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

文章插图
仔细看如何设置及功能演示
代码如下

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

【数据录入查询修改删除vba代码】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

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

推荐阅读

关于节约粮食的名言诗句关于节约粮食的名言和诗句

奋斗励志朋友圈句子励志短句致自己奋斗朋友圈

想发朋友圈表示心情不好的句子心情不好发朋友圈的句子心情短句

贝拉玻尿酸是合法的吗贝拉玻尿酸是进口的还是国产的

核桃仁做菜的菜谱，您知道桃仁脆溜鸡的做法

浅紫色显皮肤黑还是白

库伦旗景点

居家隔离和集中隔离的区别什么情况下要隔离28天

蝉蛹是什么

怎样能丰胸最安全有效