vb protect cell after data is written

[BADANDY]

i am pulling data from a sql server and putting it in a spreadsheet after i do that i want to protect that specific cell.

here is an example of my code

oGLBLRS.Open strSql2, oConn, adOpenDynamic
oWS.Cells(intDestRow, 1) = oRS("GLAcct")

oWS.Cells(intDestRow, 2) = oRS("GLDescription")

after the data is in the cell i want to protect it.

any help would be appreciated

thanks
andy

 

[MrKowz]

Try:

oGLBLRS.Open strSql2, oConn, adOpenDynamic
With oWS.Cells(intDestRow, 1)
    .Value = oRS("GLAcct")
    .Locked = True
End With
With oWS.Cells(intDestRow, 2)
    .Value = oRS("GLDescription")
    .Locked = True
End With

Then at the end of your code:

With ActiveSheet
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    .EnableSelection = xlUnlockedCells
End With

 

[BADANDY]

this worked perfectly

thanks
andy