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

如果他们尝试通过选择整行或列来插入或删除（这就是我通常这样做的方式），则会弹出此消息框，但如果您选择较小的范围，它将不会弹出细胞

用户尝试删除行时的MsgBox

1 个答案: