Question

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

这是我通过Google搜索获得的代码：

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

运行上面的宏时，它会要求您选择单元格。无论您选择哪个单元格，整个行都将被删除。

excel vba - 受保护的表删除行

1 个答案: