ExcelのVBAの保護をかけた時のグラフについて教えてください。

グラフにタイトルを設定した後、保護をかけると「ChatクラスのHasTitleプロパティを設定できません」といわれてしまい、.HasTitle=Trueで止まってしまいました。シートの保護をかけても動くようにしたいのですが、どうしたらよいのでしょうか。
（保護しなければ通常に動きます。）

'グラフをオブジェクトで配置
set chartObj=worksheets("Sheet1").ChartObjects.Add(200,0,300,200)
chartObj.Chart.SetSourceData Worksheets("Sheet1").range(range("b4").End(xlDown),ActiveCell.end(xlToright))
'タイトルをつける
with worksheets("Sheet1").ChartObjects(1).Chart
.HasTitle=True
.ChartTitle.Text="タイトル"
End with

保護をかけてもグラフの作成ができるのに、タイトル部分で止まってしまうのはなぜでしょうか。
よろしくお願い致します。

No.1 ベストアンサー 回答者： winarrow07 回答日時： 2009/06/29 21:51

処理の前に保護を解除して、処理が終わったら再度保護するようにコードを追加すればいいのでは？

この回答へのお礼

そうですよね！その手があったんですね。
保護にも色々な項目があったので、一部セルに入力可で、グラフもOKという保護の仕方があるのかと思って、そればかりを探していました。
ありがとうございました。

お礼日時：2009/06/29 23:15