Zellenschutz

Private Sub Worksheet_Change
(ByVal Target As Excel.Range)
If Target = Range ("$F$12") Then
Application.EnableEvents=False
Application.Undo
Application.EnableEvents=True

Dabei wird die Zelle F12 ohne Blattschutz geschützt.
Kann man das auf mehre Zellen (1 Spalte) anpassen?
Meine Programmierkenntisse sind gering, Nutze aber gerne diese Anwendungen.

Vielen Dank

Silke