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

Question

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

  

    

ActiveSheet.Unprotect密码：=“密码”

         

如果Range（“ProjectList”）中的“选定行”则

     Row.EntireRow.Delete Shift:=xlUp

         

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

  

Answer 1

您可以使用Intersect来检查：

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