用户尝试删除行时的MsgBox

Question

我正在使用Excel构建工具并保护工作簿，以便不允许删除或插入行/列，使用以下代码：

Sub ProtectSheet()
ActiveSheet.Protect _
    DrawingObjects:=False, _
    Contents:=True, _
    Scenarios:=False, _
    AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, _
    AllowFormattingRows:=True, _
    AllowInsertingHyperlinks:=True, _
    AllowInsertingColumns:=False, _
    AllowInsertingRows:=False, _
    AllowDeletingColumns:=False, _
    AllowDeletingRows:=False, _
    AllowSorting:=True, _
    AllowFiltering:=True, _
    AllowUsingPivotTables:=True, _
    Password:=cPassword
End Sub

但是，如果用户尝试删除或插入一个告诉他们不能执行此操作并提供其他说明的行/列，我还希望显示一个消息框。 任何人都可以告诉我如何做到这一点？

谢谢！

Answer 1

你可以像这样使用选择更改事件（代码进入工作表的代码模块）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Address = .EntireRow.Address Or .Address = .EntireColumn.Address Then
            MsgBox "You can not insert or delete any row or column", vbInformation, "FYI"
        End If
    End With
End Sub

如果他们尝试通过选择整行或列来插入或删除（这就是我通常会这样做的话），则会弹出此消息框，但如果选择较小的单元格范围，则不会弹出。