Excel删除命名范围内的行

我有一个受保护的单元格的工作表。 有一个“添加行”button,我需要一个“删除行”button。 但是,我只希望用户能够删除该行,如果它在一个命名的范围内。

ActiveSheet.Unprotect密码:=“密码”

如果Range(“ProjectList”)中的“ selected row ”然后

Row.EntireRow.Delete Shift:=xlUp 

万一
ActiveSheet.Protect密码:=“密码”

你可以使用Intersect来检查这个:

 If Not Application.Intersect(Selection.EntireRow, Range("ProjectList")) Is Nothing Then Selection.EntireRow.Delete Shift:=xlUp End If