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