0

ユーザーに保護されたシートの行を削除させたい場合は、マクロを作成する必要があることを学びました。

これは、グーグルで取得したコードです。 

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

このコードを正確にどこに配置すればよいですか? 複数の行を削除する場合などに機能しますか?

今日は MrExcel がダウンしているため、選択肢が限られています。

4

1 に答える 1

0

これをモジュールに貼り付けます

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

上記のマクロを実行すると、セルを選択するよう求められます。どのセルを選択しても、行全体が削除されます。

于 2012-06-02T06:28:35.083 に答える