Excelで選択しているセルの行を色づけしたい

質問

以前、このサイトでVBAを以下のように設定したのですが、
一度、ファイルを閉じてしまうと、無効になってしまいます。どうすれば、いいのでしょうか？

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

ActiveSheet.Rows.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 15

End Sub

回答No.2

nishi6 · ベストアンサー

Excelのバージョンが分かりませんが、もしかして、マクロのセキュリティレベルが高になっていませんか？（高でなければ読み飛ばしをして下さい）

高になっていれば、ツール→マクロ→セキュリティ　で

セキュリティレベルを中にして保存して、再度呼び出してみて下さい。（当方、Excel2000です）

回答No.3

imogasi

私も新規ブックのＶＢＥに、質問のコード部分をコピーし貼り付けてシート上でセル移動して上手く行くことを確認後、ブックを保存して、その後開いて変わらず上手く行きました。＃２のご解答の可能性が高いと思います。報告まで。
Sheet1のイベントプロシージュアーになっているでしょうね。ほかにsheet1を削除したとか。

回答No.1

kazuhiko5681

はじめまして。
私が、エクセルの新規ブックのSheet1モジュールに下記のコードを書き、Ａ３のセルをダブルクリックしたとき、３行目に色が設定されました。そのブックを名前をつけて保存し、再度開いたら無効になっていませんでした。この方法ではいけないのでしょうか。　

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

ActiveSheet.Rows.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 15

End Sub

もし違っているのであれば、あなた様がおやりになりたいことをもう少し具体的にお知らせ下さい。あなた様の実現したいことのお手伝いが、できるかと思います。