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

kikihui

请教群内大咖，如果想保留前三行不被删除，VBA语句怎么控制？不能用保护工作表来做，因为后续涉及到自动添加行的功能会报错。
谢谢！

webber04

据我的知识范畴，应该是实现不了的

3190496160

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row < 4 Then
    If T.Columns.Count = Columns.Count Then
        Rows(5).Select
    Else
        [a5].Select
    End If
End If
End Sub

3190496160

3190496160

工作簿1.rar (15.4 KB, 下载次数: 3)

2022-12-26 17:09 上传

点击文件名下载附件

gwjkkkkk

请参考附件。。。

skyzxh

保护工作表为啥不行？可以设置允许插入或删除行、列的。

1121228509

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row < 4 And Selection.CountLarge >= 5 Then
    If T.Columns.Count = Columns.Count Then
        Rows(5).Select
    Else
        [a5].Select
    End If
End If
End Sub

工作簿1.rar (15.92 KB, 下载次数: 1)

2022-12-27 21:47 上传

点击文件名下载附件

kikihui

skyzxh 发表于 2022-12-26 19:49
保护工作表为啥不行？可以设置允许插入或删除行、列的。

如果采用保护工作表，那么无法通过按键直接添加行了。

kikihui

1121228509 发表于 2022-12-27 21:52
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row < 4 And Selection.CountLarge >= 5  ...

太感谢了！
但是打开后出现这个提示，怎么解决？