VBA如何让a:c列的单元格，只能填入数据，但是填入后就不能被删除

Tongbaby2020

大神帮忙提供一下方案，就是要让a:c列的单元格，只能填入数据，但是填入后就不能被删除，用VBA也可以，因为用【审阅】-【保护工作表】不行，因为不能填入数据，也不能删除，大神帮忙看下，谢谢！

大灰狼1976

保护工作表（可选中单元格），单元格全部不lock，change事件里面判断是否填写内容，有内容就把该单元格lock掉（需要解除工作表保护和恢复工作表保护的语句）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then
  ActiveSheet.Unprotect "123"
  Target.Locked = True
  ActiveSheet.Protect "123"
End If
End Sub

大灰狼1976

上面是大概的示例，细节可根据实际需要修改限定条件、容错啥的。

Tongbaby2020

大灰狼1976 发表于 2024-3-13 16:58
保护工作表（可选中单元格），单元格全部不lock，change事件里面判断是否填写内容，有内容就把该单元格lock ...

理论是对的，我新建了一个带VBA的文件，代码复制进去，然后先把所有的单元格的锁定去除了，然后给上了sheet保护，随便找了一个单元格，输入数据，按道理有数据应该触发了解锁再锁定单元格再锁定工作表，但是我输入了数据，然后再删除，还是可以删除，不知道为什么

大灰狼1976

Tongbaby2020 发表于 2024-3-14 08:52
理论是对的，我新建了一个带VBA的文件，代码复制进去，然后先把所有的单元格的锁定去除了，然后给上了she ...

这个情况理论上不会发生，我是测试过的，你把出错的文件发上来看看吧。

Tongbaby2020

大灰狼1976 发表于 2024-3-14 09:14
这个情况理论上不会发生，我是测试过的，你把出错的文件发上来看看吧。

保护密码是123，同时我把所有单元格都设置成非锁定，那么理论来说，A1输入任何内容后，应该锁定了，但是现在不但能修改，还能删除

大灰狼1976

Tongbaby2020 发表于 2024-3-14 09:28
保护密码是123，同时我把所有单元格都设置成非锁定，那么理论来说，A1输入任何内容后，应该锁定了，但是 ...

公司电脑不便下载附件，要回家才能看。
我发一个示例你试试。

Tongbaby2020

大灰狼1976 发表于 2024-3-14 09:38
公司电脑不便下载附件，要回家才能看。
我发一个示例你试试。

哦哦哦，是我搞错了，我把代码放在了Thisworkbook里面了，那么如果我想控制任何一个sheet呢，就是每一个sheet中的单元格都是要和上面的效果一样呢

大灰狼1976

放到thisworkbook里面的话用这个事件：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
代码需要稍作修改，你自己试下。

Tongbaby2020

大灰狼1976 发表于 2024-3-14 10:06
放到thisworkbook里面的话用这个事件：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Tar ...

还得是你，可以的，谢谢！