Excel删除行，如果在命名范围内

Question

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

ActiveSheet.Unprotect密码：= “密码”

如果 “选定行” 的范围内时（ “ProjectList”）然后

 Row.EntireRow.Delete Shift:=xlUp 

结束如果
个ActiveSheet.Protect密码：=“密码”

Answer 1

您可以使用相交检查：

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