excel vba - protetcted sheet delete row

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 

При запуске выше макрос, то он будет просить вас, чтобы выбрать ячейку (ы). Независимо от того, какие ячейки вы выберете, вся строка будет удалена.