■

やべーこれ超便利・・・

１．保護したいセルをロックする。

２．以下の２関数をを追加

Sub Workbook_Open()
    Application.OnKey "{DELETE}", "ConstDel"
End Sub

Sub ConstDel()
    Dim c As Range

    For Each c In Selection
        If Not (c.Locked) Then
            c.ClearContents
        End If
    Next
End Sub

３．やった！選択範囲内の保護してないセルだけ消せる！

Permalink | 記事への反応(0) | 23:11

ツイートシェア