excel - excel vba - 受保护的工作表删除行

Question

我了解到，如果我希望用户删除受保护工作表上的行，我需要编写一个宏。

这是我通过谷歌搜索得到的代码：

Sub delete_row()
    ActiveSheet.Unprotect Password:="justme"
        ActiveCell.EntireRow.Delete
    ActiveSheet.Protect Password:="justme"
End Sub 

我应该把这段代码放在哪里？如果删除多行等，它会起作用吗？

MrExcel 今天倒闭了，所以选择有限。

Answer 1

将其粘贴到模块中

Option Explicit

Sub DeleteMe()
    Dim Ret As Range, Cl As Range

    On Error Resume Next
    Set Ret = Application.InputBox("Please select the Cells", "Delete Rows", Type:=8)
    On Error GoTo 0

    ActiveSheet.Unprotect Password:="justme"

    If Not Ret Is Nothing Then Ret.EntireRow.Delete

    ActiveSheet.Protect Password:="justme"
End Sub

当您运行上述宏时，它会要求您选择单元格。无论您选择什么单元格，整行都会被删除。