请教群内大咖，如果想保留前三行不被删除，VBA语句怎么控制

kikihui · 发表于 2022-12-28 10:21

3190496160 发表于 2022-12-26 17:07
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row < 4 Then
If T.Columns.Count = ...

通过按钮是可以，但是如果防止其他人误删除了前三行，使之变成两行或者一行了怎么办

kikihui · 发表于 2022-12-28 10:24

可能我的表述还不够清晰，我想要达到的是，前三行可以输入数据，如果删除的数据的话，表内至少保留三行，哪怕是三行空行也要保留，前面序号（自动编号）也要保留。谢谢啦

3190496160 · 发表于 2022-12-28 10:36

kikihui 发表于 2022-12-28 10:21
通过按钮是可以，但是如果防止其他人误删除了前三行，使之变成两行或者一行了怎么办

我的代码，用按钮了吗？？？？没有吧，你自己有没有认真测试看看呀
再者：你究竟是需要前三行不被整行删除，还是什么？？

kikihui · 发表于 2022-12-28 11:05

本帖最后由 kikihui 于 2022-12-28 11:07 编辑

3190496160 发表于 2022-12-28 10:36
我的代码，用按钮了吗？？？？没有吧，你自己有没有认真测试看看呀
再者：你究竟是需要前三行不被整行删 ...

不好意思，搞混了。
我是希望如果没有数据也要至少保留三行，整行都不能删除。
另外，保留的三行还是可以输入数据的。
谢谢！

3190496160 · 发表于 2022-12-28 11:07

kikihui 发表于 2022-12-28 11:05
不好意思，搞混了。
我是希望如果没有数据也要至少保留三行，整行都不能删除。
谢谢！

说实话，你的表达能力，实在不敢恭维
你到目前为止，仍然没有把你的要求完全说清楚呀
前三行是只是不允许删除整行，但是，可以清除数据，那么还是既不允许删除行，也不允许清除数据？

1121228509 · 发表于 2022-12-30 01:04

kikihui 发表于 2022-12-28 10:19
太感谢了！
但是打开后出现这个提示，怎么解决？

运行时错误，单击【调试(D)】，看代码变色停留在那句在截图。
或者删除这句代码不要了：Option Explicit

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

[求助] 请教群内大咖，如果想保留前三行不被删除，VBA语句怎么控制