excel - Excel 名前付き範囲内の場合は行を削除

Question

保護されたセルを含むワークシートがあります。「行の追加」ボタンがあり、「行の削除」ボタンが必要です。ただし、名前付き範囲内にある場合にのみ、ユーザーが行を削除できるようにしたいと考えています。

ActiveSheet.Unprotect Password:="password"

If " selected row " within Range("ProjectList") Then

     Row.EntireRow.Delete Shift:=xlUp

End If
ActiveSheet.Protect Password:="password"

Answer 1

Intersect を使用してこれを確認できます。

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