エクセルVBAでセルのFormulaHiddenが失敗！？

エクセル2000です。ブック内の全シートの計算式を非表示にするため以下のマクロを作成しました。
ところが実行時エラー1004「RangeクラスのLokedプロパティを設定できません」とエラーになります。
どうも結合セルがひっかかるようですが、理由がわかりません。
ご教示願えませんでしょうか？

Sub Formula_Hidden()
For Each ws In Worksheets
ws.Activate
For Each C In ActiveSheet.UsedRange
If C.HasFormula = True Then
C.Locked = True
C.FormulaHidden = True
i = i + 1
End If
Next C
Next ws
MsgBox i & "個のセルをFormulaHiddenしましたよん。"
End Sub

No.2 回答者： imogasi 回答日時： 2006/07/11 20:11

的外れかもしれないが、下記では改善されませんか。

Sub Formula_Hidden()
Dim c As Range
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
MsgBox ws.Name
MsgBox ActiveSheet.UsedRange.Address
For Each c In ActiveSheet.UsedRange
If c.HasFormula = True Then
MsgBox c.Address
c.Locked = True
c.FormulaHidden = True
i = i + 1
End If
Next c
ActiveSheet.Protect "", True, True, True
Next ws
MsgBox i & "個のセルをFormulaHiddenしましたよん。"
End Sub
Ｍｓｇｂｏｘは確認のために入れたもので、意味はありません。

この回答へのお礼

ありがとうございます。
やはり結合セルでえらーになってしまいます。

お礼日時：2006/07/11 23:39

No.1 回答者： popesyu 回答日時： 2006/07/11 19:58

お気づきの通り、セル結合が原因です。

回避策としては、
C.Locked = True
を
C.MergeArea.Locked = True
のように結合セルのレンジという感じにきちんと指定するか、とりあえず出来れば良いということなら
C.Activate
Selection.Locked=True
のように力技で実行するとかです。

この回答へのお礼

ありがとうございます。
Ｃが結合セルかどうかの判定はどのように書けばよいのでしょうか？

お礼日時：2006/07/11 23:37