|
こんにちは。かみちゃん です。
>のCellTypeConstantsを非保護のものに変えられないかなと思っています。
非保護のセルのみを選択して、選択されたセルを「値のクリア」するには、次のようにしてもできます。
Sub TEST()
Dim MyRange As Range
Dim C As Range, i As Long
i = 0
'指定範囲のセル(Range("xxxx"))に対して
'In ActiveSheet.UsedRangeでアクティブシート全体
For Each C In Range("D20.G30")
Select Case True
Case C.Locked = False And i = 0
i = i + 1
Set MyRange = C
Case C.Locked = False
Set MyRange = Union(MyRange, C)
End Select
Next C
'非保護(セルの書式設定−保護−ロックのチェックをはずしてある)のセルを選択
MyRange.Select
'選択されているセルを「値のクリア」
Selection.ClearContents
End Sub
|
|