入力規則により選択された値をVBAで変更する

教えてください。
エクセルファイルのシート１のA１セルに入力規則（リスト）が設定してあります。
この参照リストは、セル「AA１：AA３」にあります。
AA１：赤
AA２：青
AA３：黄
このように入力されています。

このシート１のA1セルの値が「黄」であれば「赤」にVBAで変更したいのですが、
「Worksheets(sheet1).Range("A1").Value = "赤"」と記述しても変更してくれません。
ちなみに、このシートには保護がかけられています。
以上宜しくお願いします。

No.2 回答者： KURUMITO 回答日時： 2012/11/24 13:00

例えば次のようにWorksheets(ｓheet1)を次のように変更すればよいでしょう。

If Worksheets("Sheet1").Range("A1").Value = "黄" Then
Worksheets("Sheet1").Range("A1").Value = "赤"
End If

もともとシートは保護されていてもA1セル自体は保護されていないはずですね。でないとリストによる変更もできないのですから。

No.1 回答者： osamuy 回答日時： 2012/11/24 12:55

シートの保護を解除するしかないかと。

もしくは変更したいセルのロック解除とか。