I need help with a VBA Macro code to prevent cell border changes to unprotected cells

[agross]

I have unprotected cells in excel where I need to change the content (number) and cell color, but I don't want the cell borders to change. I'm a beginner with vba. I've tried protect sheet and workbook options, but looks like I need a vba code and don't know where to start. Audrey.
Win 7
Office 2007

 

[lrobbo314]

This would be one way. Change your range to suite.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Range("J6:L19")
    With r.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

 

[agross]

Thank you for your quick reply. I am getting an error on this line when I copy and paste into one of the unprotected cells: .LineStyle = xlContinuous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Range("A3:H55")
With r.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

 

[lrobbo314]

Ive tested on my end and everything seems to be working just fine. Not that it caused any problems when i tried it, but do you have anything weird going on in that range like merged cells or anything like that?

 

[agross]

I don't have any merged cells, I have locked cells and formulas. . . I thought it was weird that it didn't like the .LineStyle = xlContinuous
Can you tell me what that means, or what it pertains to? I might find out what the problem is there.