数据录入查询修改删除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

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

版权声明：本文来自用户投稿，不代表【百发生活】立场，本平台所发表的文章、图片属于原权利人所有，因客观原因，或会存在不当使用的情况，非恶意侵犯原权利人相关权益，敬请相关权利人谅解并与我们联系（邮箱：）我们将及时处理，共同维护良好的网络创作环境。