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

質問

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

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

回答No.2

KURUMITO

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

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

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

回答No.1

osamuy

シートの保護を解除するしかないかと。もしくは変更したいセルのロック解除とか。