1

我正在使用以下代码在 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

但是，如果用户尝试删除或插入告诉他们无法执行此操作并提供其他说明的行/列，我还希望出现一个消息框。谁能建议我如何做到这一点？

谢谢！

4

1 回答 1

0

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

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

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

于 2017-01-14T18:00:30.800 回答