Beskyttelse af et ark

Smid denne kode i arkmodulet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:E10")) Is Nothing Then ' ret til dit ulåste område
ActiveSheet.Unprotect
Else
ActiveSheet.Protect
End If
End Sub

Det virker jo perfekt. Tak for hjælpen.
Jeg har lige et andet lille spørgsmål, hvis ikke du vil/kan svare får du selvfølgelig dine point.
Problemet er at jeg i området "A1:G20", som er det område hvor man må ændre i, har indsat en baggrundsfarve i cellerne, dette er gjort på flg måde:

Range("A1:G20").Select
Selection.Interior.ColorIndex = 15 'grå

men når jeg fx kopierer et område som har en hvid baggrundfarve, og jeg indsætter det i området A1:G20 bliver det jeg indsatte selvfølgelig også hvidt. Derfor er det jeg vil spørge om du ved hvordan man kan sikre at baggrundsfarven altid er grå, uanset om en person fx forsøger at indsætte noget med en hvid baggrund ?

/Jesper

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:E10")) Is Nothing Then ' ret til dit ulåste område
ActiveSheet.Unprotect
Range("A1:G20").Interior.ColorIndex = 15 'grå
Else
ActiveSheet.Protect
End If
End Sub

takker

selv tak