エクセルvbaについて質問です。初心者なのでわかりやすい説明をお願いします。2つのセルを選択して内容を入れ替えるという仕掛けを作成しました。Public Sub swap()Dim w, x As Range, y As RangeIf Selection.Areas.Count \u0026lt;\u0026gt; 2 ThenMsgBox \u0026quot;2ヶ所のセルを選択してください\u0026quot;Exit SubEnd IfSet x =Selection.Areas(1)Set y =Selection.Areas(2)w = x.Formulak.Formula = y.Formulay.Formula = wEnd Subセル内容は書き換えられないようにシートの保護をしたところ、”実行時エラー ’1004’；変更しようとしているセルやグラフは保護されているシートにあります。変更するにはシートの保護を解除してください。…。シートの保護を一旦解除してセルを入れ替えた後、再度シートの保護を自動でできる仕掛けが作れるとの記事があったのですが、どこにどのようなコードを書けばできるのかご教示ください。