0

エクセルのマクロです。シートを保護してセルをロックするとこのマクロがうまく働きません。具体的な解決策を教えてください。 この質問をご覧のマクロに詳しい方々へ

お世話になります。
下記の内容のマクロを組み、図のような配布用のデータ表を作っております。

ここで
イエロー部分はセルのロックをせず、配布先で自由に入力できるようにとしたいと思っています。
水色の部分は計算式が入っていますので、セルにロックをかけて配布先でさわれないようにしたい（イエロー以外の部分にはロックをかけて使用したい）のですが、

現在のマクロでは、水色部分のセルにロックをかけ、イエロー部分のセルへ数値の入力をすると
「RangeクラスのNumberFormatLocalプロパティを設定できません」とエラーがでてしまいます。

このマクロ、ロックをしなければ希望どおり動いてくれるのですが、、、

どのように変えたら水色部分（イエロー部分以外）のセルにロックを掛けた状態でうまく動いてくれるでしょうか。

わかりにくい文章で申し訳ありませんが
よろしくご教示くださいませ。


Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, j As Long, r As Long
Dim i As Long, k As Long
j = Cells(Rows.Count, 7).End(xlUp).Row
If Intersect(Target, Range("G:O")) Is Nothing Then Exit Sub
For i = 2 To j Step 2
For k = 7 To 15
With Cells(i, k)
If .Value <> 0 Then
.Offset(1).NumberFormatLocal = "(#,##0);(-#,##0)"
Else
.Offset(1).NumberFormatLocal = "#,##0;-#,##0"
End If
End With
Next k
Next i
End Sub


画像が見えにくい場合は、こちらへ。ヤフーフォトへのリンクです。
http://photos.yahoo.co.jp/ph/snowboarder_g5/vwp?.dir=/4afa&.dnm=bb28.jpg&.src=ph&.view=t&.hires=t

質問者が選んだベストソリューション

Yahoo!知恵袋 4876日前