防止用户根据该行中单元格的内容删除某些行

Question

我有一个想要保护的模板文件，以便用户无法修改公式。由于工作表受到保护，我编写了一个宏来允许用户插入行。我还想要一个宏来允许用户删除行，但我想防止用户删除某些关键行（例如检查总计和标题等）。

为此，我在模板中使用 L 列来标识无法删除的行。对于这些行，我在 L 列的该行中有单词 “keep”。我在下面编写了一个基本的删除宏，但我需要修改它以在所选范围 的 L 列中查找rRange 和 Exit Sub（如果有“keep” 一词）。

*请注意，rRange 可能包含许多相邻行，因此如果其中任何行未通过测试，宏将需要退出。

Sub DeteteRows()

Dim rRange As Range
On Error Resume Next
    Application.DisplayAlerts = False
     Set rRange = Application.InputBox(Prompt:= _
            "Please use mouse to select a row to Delete.", _
                Title:="SPECIFY ROW TO DELETE", Type:=8)
On Error GoTo 0
    Application.DisplayAlerts = True
    If rRange Is Nothing Then

    Exit Sub

    Else

rRange.EntireRow.Delete
Range("a1").Select

MsgBox ("Row(s) Deteted")
    End If

End Sub

Answer 1

这可能不是最好的方法，但它如下。我没有在最后的 if then else 中添加删除部分，因为我认为你可以处理这个问题

Sub DeteteRows()
Dim rRange As Range
Dim bKeepFound As Boolean
bKeepFound = False
On Error Resume Next
Application.DisplayAlerts = False
Set rRange = Application.InputBox(Prompt:= _
"Please use mouse to select a row to Delete.", _
Title:="SPECIFY ROW TO DELETE", Type:=8)
On Error GoTo 0
    Application.DisplayAlerts = True
    If rRange Is Nothing Then
        Exit Sub
        'dont need the else statement cause you exit the sub if it fails
    End If

    For Each Row In rRange.Rows
    Dim s 'variable to hold the array
    s = Split(Row.Address, ":") 'split out the column and row
        'remove the $ and convert to a number then check the cell value
        If rRange.Cells(CInt(Replace(s(0), "$", "")), 12).Value = "keep" Then
            bKeepFound = True
        End If
    Next Row
    'check to see if a row was found to keep
    If bKeepFound Then
        Exit Sub 'row was found so exit sub
    Else
        'delete the rows in the range
    End If

End Sub